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SUMMARY 


The development of a comprehensive computational technique to predict the highly 
complex flowfielda associated with typical V/STOL aircraft configurations has been 
initiated by General Dynamics. The approach being taken is to use the PAN AIR higher 
order panel method as the nucleus of this program and take advantage of its extensive 
capabilities for modeling complex configurations and applying generalized boundary 
conditions. A building-block approach is being used to incorporate additional capabilities 
into PAN AIR to account for flow phenomena generally associatd with V/STOL 
configurations that are not accurately treated by potential flow codes. Existing 
methodology and codes arc being utilized whenever possible to keep development time and 
costs to a minimum. 

The modules developed will interact with the aerodynamic code through input and 
output files only, thereby requiring no change to the PAN AIR code. This type of 
development permits easy replacement of any module or the nucleus aerodynamic code 
when improved versions become available. The progress made toward the development of 
three modules is presented in this report. 

The Pre-processor Module is designed to decrease the manual data manipulation 
- required to generate the input parameters necessary to analyze a configuration with PAN 
AIR. The molule generates a panelling scheme that meets the critical requirements of 
the PAN AIR code. Graphics are also included to permit display oi he confismriaon and 
rapid detection of panelling errors. The module is designed to operate interactively to 
allow maximum configuration flexibility. 

The Engine Simulation Module is designed to take into account the mutual 
interference effects between the lifting and propulsion systems of the aircraft. It is 
currently restricted to supersonic jets at small injection angles tj a subsonic freestream 
flow. Both blocicage and entrainments effects of the plume are simulated by the module. 
Starting with a PAN AIR input file without any simulation of the plume effects, the 
module generates another file with all necessary modifications to allow the analysis of a 
configuration with plume effects. Preliminary validation of the module indicates that the 
effect of the plume on the external flowfield is correctly transmitted in all regions except 
in the immediate vicinity of the nozzle exit plane. The inclusion of viscous corrections to 


both the plume ani nozzle boattaii ia expected to improve the prediction in this local 
region. 

Th* Viscous Flow Simulation Module is being incorporated to account for real flow 
effects in the predictions of V/STOL aircraft flowfields. These effects, which include 
decambering of lifting surface due to boundary layer buildup, trailing- edge flow 
sep iration, leading-edge bubbles, and leading-edge vortex separation*, are highly 
prominent in most V/STOL flowfields. A two pronged approach is planned for this module. 
The first is to utilize an equivalent body defined from boundary layer considerations, and 
the second is to apply empirical corrections to the predicted data. Initial work on this 
module has been devoted to the task of developing the equivalent-body concept. An 
output file containing the flow parameters computed by PAN AIR is used to compute the 
boundary layer displacement thickness and separation points if any on lifting surfaces. A 
two-dimensional boundary layer code is applied in a strip fashion to generate this 
information. The RIM data base management program and several special programs 
written for this module are utilized to arrange the PAN AIR output in a form acceptable 
to tha boundary layer program and vice-versa. Starting with PAN AIR input and output 
files the module generates a new PAN AIR input file that includes the effects of boundary 
layer build up and trailing^edge separation on the lifting surfaces. Check-out of this 
module has not been completed, but preliminary indications "re that the equivalent body 
model chosen is not predicting the correct trends. It is not clear at this time if the 
problem is being caused by the equivalent body def'nition or by improperly computed 
values of pressure coefficients in the crailing-edge region. 

The continued development of this type approach is highly recommended, because 
the only other way to get solutions for complex V/STOL flowfields is with the full Navier 
Stokes equations. Por that we need at least a two orders of magnitude increase in 
computational speed over the existing Class VI computers. 


1. I NT a 3DUCTION 


The need io develop tactical aircraft having V/STOL and/or STOL capability in the 
United States has been recognized for some time. This need has been reinforced by the 
role played by the British manufactured Harrier aircraft In the Falkiant. War. This battle 
scenario clearly demonstrated that aircraft with V/STOL and/or STOL csoability can be 
effectively utilized from both sea- and land-based operations, under the most adverse 
conditions. The interest in incorporating these capabilities in the next generation of 
fighter aircraft has stimulated an interest in developing the methodology to accurately 
predict the aerodynamics of these configurations in low-speed flight. 

The flowflelds associated with V/STOL configurations operating in the lover, 
transition, or STOL modes are, in general, highly complex and difficult to predict. The 
major aerodynamic interactions encountered during the analysis of V/STOL configurations 
are outlined in Figure 1-1. Existing methods, in general, can only predict the force and 
moment coefficients for a limited class of configurations and do not generate sufficient 
information for e clear understanding of the flowfield, so design deficiencies may not be 
identified. 

Government and industry have been active in the development of analytical methods 
for the prediction of the aerodynamic characteristics of V/STOL aircraft. The various 
programs have addressed a wide range of concepts including internally- flown flaps, 
externally-blown flaps, jet Haps, mechanical flaps with thrust vectori'ig, lift jets, lift 
fans, and vectored thrust. Most of these methods analytically model the real 
configuration aerodynamics with empirical modifications as required. A few of these 
methods are summarized below. 

General Dynamics recently developed a preliminary design method (Reference 1) to 
estimate the thrust-induced aerodynamic forces and moments or powered-lift 
configurations. The method is based on the theory of Maskell and Spence (Reference 2) 
with appropriate empirical modifications. The incremental lift and moment coefficients 
predicted by this procedure for the NASA/Ames V/STOL fighter model are in good 
agreement with experimental data, as shown in Reference 3. 
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The Convair Division of General Dynamics has developed a method for predicting 
incremental forces and moments due to power for V/STOL configurations (Reference 4). 
Various theoretical and empirical relationships were developed to account for jet-induced 
circulation, surface-friction (scrubbing) losses, and partial-span effects. The code 
computes wing lift-curve slope, induced drag, thrust recovery, flap pitching- moment 
increment, downwash, and lateral/directional stability derivatives. The jet-flap lifting- 
line theory of Kerney (Reference 5) is used to estimate wing lift-curve slope with power 
on. 


Rockwell International has developed a method to analyze configurations with 
externally blown flap systems (Reference 6). The lift curve slope in this procedure is 
based on the two-dimensional, thin-airfoil, jet-flap theory of Spence (References 7 and 8} 
with the Maskell and Spence aspect-ratio correction employed to account for three- 
dimensional effects. The method for the maximum lift coefficient is entirely empirical. 

In addition to forces and moments, predictions are included for lift curve slope, maximum 
lift coefficient, induced drag, thrust recovery, downwash, asymmetric engine operation, 
and static longitudinal and lateral/directional stability derivatives. 

A Boeing Company ;rcthod (Reference 9) is designed to predict forces and moments 
on aircraft that employ mechanical flap/vectored thrust combinations or internally-blown 
flap systems. The mechanical flap system method is basically empirical and uses an 
equivalent jet-velocity ratio as a similarity parameter for the prediction of the power- 
induced incremental lift, drag, and moment coefficients. The internally-blown flap 
method employs an analysis based on a jet-flap lifting-line theory concerned principally 
with the influence of non-planar trailing vortices on the wing aerodynamics. 

Northrop Aircraft has developed a specialized aerodynamic force and moment 
prediction method (Reference 10) for V/STOL aircraft that employ a lift jet, lift fan, or 
vectored thruac in the hover and transition flight regimes. This method uses a building 
block approach in which the basic flow problems are solved independently. For example, 
unpowered aerodynamics and power-induced effects are added together to obtain the total 
aerodynamics. Various components of the aircraft are also treated individually and added 
together to obtain total aircraft aerodynamics. The non-linear wing aerodynamic 
characterise "s are analyzed by a double iifting-line theory, and the Dody aerodynamics 
are accounted for by modified slender-body theory. A significant feature of the Northrop 
method is its ability to ' ,ipute the aerodynamics of transverse flow such as that emitted 
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from a lift jet, lift fan, or vectored-thrust nozzle. The method takes into account 
entrainment into the jet due to viscous mixing and distortion of the jet from a circular to 
a kidney-shaped cross-section, as the jet develops downstream. The jet is assumed to be 
an elliptical-shaped solid body for purposes of drag estimation. Conformal mapping 
techniques are used to analyze the interference effects of jets on the body and wing 
components. 

The Douglas Aircraft Company has developed a method based on a linearized lifting- 
surface theory for jet-flapped wings, which Douglas identifies as the Elementary Vortex 
Distribution (EVD) method (References 11, 12, and 13). This method has the capability of 
predicting surface pressures and empirically corrected forces and moments. It is 
specifically geared to the design and analysis of STOL transport aircraft employing 
internally-blown jet flaps, externally-blown jet flaos- and mechanical flap systems with 
vectored thrust. The EVD method is capable of handling zero-thickness wings of arbitrary 
planform with arbitrary spanwise distributions of twist, flap chord, jet-blowing 
momentum, and jet-deflection angle. It represents one of the most general and exact 
solutions available for jet -flapped finite-span wings. 

The NASA/ Langley Research Center and the University of Kansas have jointly 
developed a linear invkcid subsonic compressible flow theory to treat the aerodynamic 
interaction between the wing and an inviscid upper-surface-blowing thick jet. This 
method provides predictions for numerous jet parameters including jet temperature, Mach 
number, aspect ratio, exit area, deflection angle, and proximity to the wing. Forces and 
moments are determined by integrating the theoretical pressures. 

The Vought Corporation recently developed a code (Reference 14) that integrated 
three separate plume modeling methods and an inlet method with a potential flow code. 

It allows the user to select which of the plume methods will be used in the analysis. This 
is a sound approach to modeling aerodynamic/propulsive interactions, but the plume 
modeling methods are not general enough to handle several practical problems that are 
often encountered in the analysis of modern fighter aircraft. 

The analytical methods discussed above and others, too numerous to mention, 
provide many theoretical, empirical, and semi-empirical methods to estimate the 
aerodynamic characteristics of V/STOL aircraft. However, each method is limited in the 
classes of vehicles for which it is specifically designed and often to a very limited range 
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of flight conditions. These restrictions are caused primarily by the empiricism normally 
incorporated into theoretical procedures to obtain results for the given class of 
configurations under study. 

Exact solutions for the flowfields associated with arbitrary V/STOL configurations 
require solution of the Navier-Stokes equations. This is clearly beyond the current 
capabilities of the available computer hardware. A better near-term approach for 
modeling free air transition and forward flight flow phenomena is illustrated in Table 1. 
This approach is based on a modern panel method to predict the aerodynamics of the 
baseline configuration extended and modified to account for propulsion effects and real 
flow effects. 


Table 1 V/STOL AERODYNAMIC PREDICTIONS APPROACH 


Power-Off 

Characteristics 

Baseline Configuration 
o Forces <Sc Moments 
o Pressures 

Powered Flight 

Inlet Flow 

Effects 

o Spillage 
o Ram Drag 
o Interference 

Exhaust Flow 

o Plume Shape 
o Entrainment 
o Impinge. nei.t 
o Supercirculation 
o Fountain Effects 
o Reaction Jets 

Real Flow 

Viscous Flow 

Effects 

o Separation 
o Tip Vortex 
o L.E. Vortex 
o T.E. Vortex Rollup 


7 


y 


* 



The success of a panel-type approach hinges on several factors. Most important is 
the selection of the baseline analysis code, which must accurately predict the 
aerodynamics of complex configurations and also, allow application of general boundary 
conditions that will be used to simulate power and viscous effects. A major objective is 
to devise a method for the analysis of configurations in which the propulsive system is 
closely coupled with the lifting surfaces. The interactions between the aerodynamic and 
propulsive flowfields can be quite strong on seme configurations, and therefore, need to 
be predictable so that designers can take advantage of these potentially favorable effects. 
Another objective is to analyze flowfields where viscous phenomena dominate. For 
instance, separated and vortex flows, which are significant features of the flowfield of 
V/STOL aircraft operating at high angles of attack. General Dynamics has initiated the 
development of a V/STOL aerodynamic prediction technique in which a building-block 
approach is being used to enhance the capabilities of a modem aerodynamic potential- 
flow code. 
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2. TECHNICAL APPROACH 


General Dynamics plan for a V/STOL aerodynamic code, includes the development 
of distinct modules that will he mated to a potential-flow aerodynamic code. Special 
methods *o handle the flow phenomena not adequately modeled by potential-flow codes, 
such as viscous effects, will be integrated into the overall code in a modular manner. The 
following subsections discuss the overall aspects of the code. 


2.1. AERODYNAMIC PREDICTION CODE 

General Dynamics has selected the PAN AIR code as the aerodynamic flow 
prediction method This code was developed by The Boeing Military Airplane Company 
under the joint sponsorship of IJASA's/Ames and Langley Research Centers, the Air 
Force's Aeronautical Systems Division and Wright Aeronautical Laboratory, and the Naval 
Coastal System Center. This higher order panel method has been selected because it 
provides more flexibility than any other panel method. Similar codes developed by 
Woodward and Hess, although excellent codes, just do not match the overall capabilities 
of PAN AIR. A brief description of the theoretical method used within PAN AIR is 
prese tted in this report and the reader is referred to the code documentation (References 
15 through 18) for a detailed discussion. 

PAN AIR solves the three-dimensional boundary value problem governed by the 
second order partial differential equation usually referred to as the Prandtl-Glauret 
equation. 


+ 0yy + 022 = 0 

The above equation is valid for the analysis of incompressible and linear compressible 
subsonic and supersonic flow of arbitrary fluids over arbitrary configurations. Mixed 
subsonic and supersonic flows and discontinuities in the flow cannot be adequately 
simulated by this differential equation. Similar to other pane! methods, PAN AIR divides 
the configuration into segments, each of which is further divided into quadrilateral panels. 
Here the similarity between PAN AIR and most other panel methods ends. PAN AIR is a 
higher order panel method because it does not use a constant singularity strength over 
each panel but allows linear source strength and quadratic doublet strength variation on 
each panel. To further improve accuracy, PAN AIR enforces continuity of doublet 
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strength over the entire configuration and also maintains continuity of the geometric 
surface by subdividing each quadrilateral panel into several piecewise flat panels. By 
using these refinements, the solutions generated by PAN AIR become almost independent 
of the panelling scheme. 

The PAN AIR code is very flexible in the type of boundary conditions that can be 
used to define the singularity strengths on the panels. A general form of the boundary 
condition is incorporated into the code. This aiiows the user to select boundary conditions 
which simulate impermeable surfaces, surfaces with specified normal or tangential 
velocities etc. User selected boundary conditions can be applied over different parts of 
the configuration since the number of unknown singularity strengths and boundary 
conditions are matched over each network. 

The capabilities of PAN AIR (taken from Reference 1C, include the ability to 

o Analyze completely arbitrary configurations in subsonic flow and nearly 
arbitrary configurations in supersonic flow. 

o Analyze either unsymmetric configurations or configurations with one or two 
planes of symmetry. 

o Analyze configurations in either unsymmetric or symmetric flight conditions, 
including ground effect conditions. 

o Analyze or design both geometrically thick configurations and thin 

configurations, such as a camber surface representation of a thin wing. 

o Analyze configurations eithe" (in an exact sense) with boundary conditions 
applied on the configuration surface or (in a linearized sense) with appropriate 
boundary conditions applied to an approximation to the configuration surface. 

o Analyze control surface deflections either (in an exact sense) by geometric 
deflection of the appropriate networks or (in a linearized se.ise) by imposing 
suitable boundary conditions on an approximation to the deflected control 
surface. 


o Design the location of surfaces, including wakes, by the non-iterative design 
capability. 

o Superimpose incremental velocity components onto the freestream either in a 
global sense, for example, additional velocity components to simulate a finite 
roll rate, or on a local basis, for example, to simulate different angles of attack 
for different networks or to simulate the effects of a slipstream or line vortex. 

o Calculate pressure coefficients and force moment coefficients by several 
pressure coefficient formulas (isentropic, linearized, second-order, reduced 
second-order, and slender body). 

o Calculate velocity components and pressure coefficients both at standard points 
and at user-designated arbitrary points on the configuration surface (flow 
quantities in the external flow field can be computed by using panels with zero 
singularity strength). 

o Calculate the force and moment coefficients on individual panels, columns of 
panels, and networks with the options of using user-specified reference 
dimensions and moment axes of either individual networks or the total 
configuration. 

o Include or exclude the force and moment contributions of individual networks in 
the calculation of the force and moment coefficients of the total configuration. 

o Calculate force and moment coefficients in the reference axis system, in the 
stability axis system, in the wind axis system, and in a user-specified body axis 
system. 

o Calculate leading- and side-edge forces and moments due to singularity of the 
leading- and side-edge force distributions for thin configurations, and to include 
these calculations in the total configuration force and moment coefficients. 

PAN AIR code has been developed in a modular fashion using a structured software 
development approach. This, together with a liberal distribution of comment cards 
throughout the code, allow for rapid upgrading of the code where necessary. The various 
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modules of the code communicate with each other only through common data bases so 
that changes made in one module affect the other modules in a clearly identifiable 
manner. 


2.2 V/STOL ANALYSIS MODULES 

The function of each module developed in this study is briefly discussed below and 
then discussed in detail in the following sections of this report. 

Preprocessor Module - Wide acceptance of a computer code requires that it be user 
friendly. This in general implies that an engineer can understand the code, analyze a 
problem, and interpret the computed results within a reasonable time. PAN AIR is a very 
general code that requires detailed input for many parameters, some of which can easily 
be foreset for V/STOL type problems. The basic goal for the preprocessor is to make PAN 
AIR easier to use for V/STOL analysis by reducing the number of input parameters, 
developing an automatic panel generation and modification scheme, and including 
interactive graphic displays of the panelling arrangement. 

Engine Simulation Module - In general, the engine placement in V/STOL 
configurations is such that the interactions of the inlet and nozzle flows with the aircraft 
external flowfield should not be ignored. A method to model a plume as a permeable body 
with specified inflow velocities to simulate entrainment effects has been developed in this 
stuay and is discussed in a later section of this report. A similar technique will be 
necessary to simulate inlets by either specifying inlet velocities at the inlet face or by 
modeling the capture tube as a surface. 

Viscous Effects Module - V/STOL aircraft often operate at high lift coefficients and 
flow inclinations and hence, incur significant flow separation on the lifting surfaces and 
bodies. These areas of separated flow often lead to strong vortex formulations. 

Simulation of these effects is a very difficult problem. The development of this module 
has been initiated. Methods have been incorporated to simulate the effect of boundary 
layer build up and trailing edge separation on lifting surfaces using 2-D boundary layer 
methods in a strip fashion. To include boundary layer effects on a body-and nacelle-tyne 
surface, it will be necessary to utilize three-dimensinal boundary layer codes. Simulation 
of vortical flows may have to be handled by empirical corrections to the computed 
results. 
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3. VALIDATION O? THE AERODYNAMIC CODE 


The mathematical concepts incorporated in the PAN AIR code have been 
substantiated in nui lerous studies utilizing an earlier version of the code referred to as 
the PAN AIR Pilot Code (Reference 19). On the other hand, the PAN AIR code is still in 
the final stages of development and checkout. Since the code was not generally available 
to industry until 1981, it has not yet received the extended useage that is required to 
identify all the programming errors that invariably occur during the development of such 
complex computer programs. Several versions of the code have been released since that 
time, and the success in using them has been mixed. The early work at General Dynamics 
was directed towards the analysis of a complex VATOL fighter model. It was found that 
complex configurations sometimes caused problems, but that these problems often could 
not be recreated on simplier geometries when attempts were made to isolate their 
sources. In other words, the code would perform correctly with less complex 
configurations. The early results of these studies are presented in detail in Reference 20. 

In the study reported in this document, attempts were continued to obtain an 
improved flowfield prediction for the Ames/GD V/STOL Fighter model. Efforts were also 
initiated to compute the aerodynamic characteristics of the Ames/Vought VATOL model. 
The latest version of the PAN AIR code, released in January 1983, was utilized in this 
sf.Kiy. Preliminary indications are that some of the errors in the code, though not all, 
have been corrected. The following subsections discuss the power-off predictions for 
these two V/STOL models performed with the latest version of the code. 


3.1 AMES/GD V/STOL FIGHTER MODEL 

The Ames/GD V/STOL Fighter model is approximately a 75% scale of an operational 
fighter designed to perform an air-superiority mission. During tests in the Ames 40 by 
80-Foot Wind Tunnel, the model was powered by two turbojet engines. A general 
arrangement drawing of this model is shown in Figure 3-1. The locations of the wing and 
canard chordwise pressure instrumentation are shown in Figure 3-2. The pressure and 
force data that have been obtained during tests of this model are presented in References 
21 through 25. Several variations of the panelling arrangement for the Ames/GD V/STOL 
model have been used since the inception of this study, the latest of which is shown in 
Figure 3-3. 
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Figure 3-2 Pressure Instrumentation on the Ames/GD Model 






The PAN AIR prediction for chordwise pressures on the wing and canard are 
compared with test data in Figures 3-4, 3-5, and 3-6. These predictions are not 
substantially different from those reported earlier in Reference 20. The predictions 
compare reasonably well with the data, except in regions whore flow separation effects 
have been identified in the test data. The types of pressure formations that result from 
the presence of a leading-edge vortex on this model are discussed in detail in References 
23 and 25. One questionable aspect of the panelling arrangement for wing/ canard 
configurations is the proper placement of the canard wake over the wing. Especially at 
higher angles of attack, the assumed straight-back trailing position of the canard wake 
may not be in the best location relative to the wing. An investigation of this effect was 
not undertaken during this study. 

A test-to-theory comparison of the lift curve of this model (Figure 3-7) shows the 
prediction to be lower than the test data. These results are also similar to those 
presented in Reference 20. There are some reservations about both the test data and the 
computed results presented in this figure. The test data shows a very high value of lift 
coefficient at zero alpha, which may be due t~j the large amount of body camber. The 
possibility of an error in the experimental lift coefficient must also be considered. 

The PAN AIR prediction was obtained from an analysis that utilized some artifices 
to obtain a solution. First, the latest version of the code would not execute with gap- 
filling panels. To eliminate them, minor modificatons to the geometry were required that 
should not have caused any significant changes in the computed results. Second, a partial- 
edge, rnid-network abutment on the side of the nacelle, downstream of the canard, had to 
be specified in the input to eliminate warning messages about empty-space abutments. 
These abutments had exact corner-point matching and should not have required this 
specification, thus pointing to a possible error in the PAN AIR code. Finally, some of the 
wake networks near the nozzle exhaust had extremely low values of pressure coefficient, 
as shown in F igure 3-8. 

The artifices used to obtain a PAN AIR solution seem minor and would not be 
expected to have significant impacts on the computed lift coefficients. However, since 
differences exists between the test and predictions, both should be reexamined to resolve 
the discrepancy. The Ames/GD V/STOL model is an extremely complex arrangement to 
analyze with a panel method. It is noted that PAN AIR predictions for the lift 
coefficients of the F-16XL and the Ames/Vought models that have been performed at 
General Dynamics have compared well with experimental data. 
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Figure 3-5 Test-lo-Theory Comparison* of Pressure Data for Lie Ames/GD 
Model, Alpha = 4 Deg. 
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Figure 3-8 Pressure Coefficients Near the Nozzle of the Ames/GD Model 
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3.2 AMES/VOOGHT VATOL MODEL 


The Ames/V ought model is a 0.4-scale powered VATOL model designed for testing 
at angles of attack to 90 deg and greater. A general arrangement drawing for this model 
and the locations of the pressure instrumentation are shown in Figures 3-3 and 3-10. The 
model was tested with power off and also with a high RPM fan to simulate inlet flow. 

Wind tunnel test data for this model are presented in References 26 and 27. The original 
panelling arrangement for this model was obtained from NASA but was later enhanced 
th -*»»«rh the use of the Preprocessor Module, as discussed in Section 4. The enhanced 
panelling arrangement is shown in Figure 3-11. 

Test-to-theory comparison of the chordwise pressures on the canard surfaces are 
presented in Figures 3-12, 3-13, and 3-14 for three spanwise stations. For each location, 
data are presented at angles of attack of 4, 8, and 20 deg. Experimental data at 8 and 20 
deg were available only with the engine fan operating at 10,000 RPM. The effect of the 
inlet flow at these angles of attack is assumed to be small. Experimental data indicate 
the formation of a leading-edge vortex, similar to that of the fighter model and trailing- 
edge separation characteristics, at high angles of attack. These factors account for the 
major differences between experimental and predicted values. 

Test-to-theory comparisons of the wing pressure data are shown in Figures 3-15, 
3-16, and 3-17. They are similar to the comparison for the canard. Again the effects of 
trailing-edge separation and vortical flow have considerable influence on the test data, 
which explain some of the large differences between test and theory. 

The computed lift curve. Figure 3-18, compares well with the test data up to an 
angle of attack of approximately 12 degrees. Above this angle, additional lift, presumably 
generated by the leading-edge vortex, causes the test data to be slightly higher than the 
prediction. 
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Figure 3-9 General Arrangement Drawing of the Ames/V ought VATOL 
Fighter Model 
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Figure 3-10 Pressure Instrumentation an the Ames/V ought Model 
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Figure 3-12 Test-to-Theory Comparisons of Pressure Data for the Canard of 
the Ames/Vought Model* 26% Semispan 
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Figure 3-13 Test-to-Theory Comparisons of Pressure Data for the Canard of 
the Ames/Vought Model, 48% Semispan 
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Figure 3-14 Test-to-Theory Comparisons of Pressure Data for the Canard of 
the Ames/V ought Model, 80% Semispan 
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4. PREPROCESSOR MODULE 


The Preprocessor Module la intended to be an automated input generation module. 
Thia module assists the user in preparing the detailed geometric input required by the 
PAN AIR program. The Preprocessor was formulated as an interactive graphics program 
designed to operate on one of the NASA Ames' VAX 11/780 computers. A description of 
this module including existing methods selected for incorporation into the module is 
presented in this section. User Instructions* sample input and listing of the code 
developed during this study are included as Appendix A. The source listing of the existing 
codes are not included. For these the reader is referred to the references. 

The primary function of this module is to generate the geometric panelling 
arrangement for an arbitrary configuration consistant with the requirements of the PAN 
AIR code. The generation of a panelling scheme from the geometrical data for an 
arbitrary three-dimensional configuration Is a very tedious* time-consuming task. Errors 
ate easily introduced by the tedious nature of the task* and once introduced are hard to 
locate. Changes to the panelling arrangement are difficult and therefore* often 
re'uctantly made. The Preprocessor module geometry package coupled with an 
appropriate plot pacicage solves most of these problems. 


4.1 DESCRIPTION OP THE GEOMETRY PACKAGE 

The geometry package selected for the Preprocessor Module ij based on a panelling 
code developed at McDonnell Douglas by Halsey and Hess (Reference 28) under contract 
to NASA Langley. This rogram was formulated to generate a panelling scheme 
consistent with the requirements of the three-dimensional lifting version of the Douglas- 
Neumann Program. The Halsey-Hess geometric procedure was chosen for this application 
because it was developed specifically for use with a 3-D potential flow program, and it 
was sufficiently general so that it coni' 4 be used for the present application with only 
minor modifications. 

Tne panelling requirements for PAN AIR are similar to those for which the selected 
geometry package was developed; however, the dimensions set within the program had to 
be increased to be compatible with PAN AIR. The coding was also altered for 
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compatibility with the NASA Ames' VAX 11/780 computers. A brief description of the 
procedure and the options available are presented in the following paragraphs. 

The geometry package was designed to simplify the user's job by automating the 
panel generation. Input to the geometry code consists of a very sparse set of coordinate 
data to describe each component of a configuration. Often it is possible to describe a 
component with an order of magnitude fewer points than required for an accurate 
potential-flow solution. The user is also not required to devote a lot of time and care to 
develop consistent spacing between the points because the package provides automatic 
spacing options that augment and redistribute the input points. The package also has the 
capability to calculate the intersection curves between components and then to repanel 
the components so that the adjacent paneling distributions are compatible. 

Use of the geometry package and understanding what the package does requires that 
the user be familiar with some terms and conventions used in the development of this 
code. These terms are illustrated in Figure 4.1 taken from Reference 28. Each 
component is defined by specifying points on a section curve, then on an adjacent section 
and so on, until all sections have been defined. Each component thus consists of a set of 
points which can be connected to form a network of intersecting lines called N -lines and 
M-lines. Points on a section curve are ordered along the perimeter of the section and are 
designated as N-lines. On a wing, for example, the N-lines correspond to defining the 
airfoil shape at a chord wise cut through the wing. The curves connecting corresponding 
points on the N-lines are designated M-lines. On a wing, the M-lines run spanwise; 
whereas on a body the M-lines generally run along the length of the body. The area 
bounded by two adjacent N-lines is termed a strip and the area bounded by two N-lines 
and two M-lines is termed an element (i.e., a panel). An understandii^ of N-.ines and M- 
lines is required to comprehend the input terminology of the geometry package. 

First, it is necessary to understand generally what the geometry code does before 
discussing the restrictions and options applicable to the M and N lines. The first operation 
performed by the geometry package is to panel or redistribute the points defining each 
component as if each component is completely independent of the others. The paneling of 
each component is performed in the following two steps: 

o the points on the initial N-lines are augmented in number and redistributed 
according to the number and the spacing algorithm specified by the user; 
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the N-iines are augmented in number and redistributed in number according to 
the user's specifications. The latter is done by augmenting and redistributing 
points along each M-line. 


Cubic polynomials are used for the interpolation r squired to redistribute the points 
along either N-lines or M-lines. The arc length along the polygon formed by connecting 
straight lines between adjacent points is the parameter used as the independent variable 
of interpolation. Interpolation for a point on a curve is accomplished by three separate 
interpolations, one for each coordinate. In each interpolation, the first derivative of the 
dependent variable with respect to the straight-line arc length is first found by taking a 
weighted average of the angles of the straight-line segments. These are then used, 
together with the coordinate values, to determine the coefficients of cubic interpolating 
polynomials. 

Both cubic splines and cubic polymonials were investigated for inclusion in the 
geometry package. The cubic-polynomial method selected is not a true spline method 
because the second derivatives are discontinuous. Cubic splines were found to cause 
problems when the defining data was very sparse. Any waviness that might exist in the 
defining data can get out of control when using cubic splines to interpolate a very sparse 
set of data. 

Several options for the spacing of points on N-lines (i.e., in the chordwise direction 
cn wings and usually the circumferential direction on fuselages) are available for the user 
to select. These options are as follows: 


o Input distribution, unaltered 

o Input distribution, augmented in number 

o Constant increments in arc length 
o Cosine spacing 
o Curvature dependent distribution 
o User specified distribution 

No interpolation is done when the unaltered input distribution option is selected. 

This option may be used when the initial defining distribution contains a sufficient number 
of properly spaced points. The user must insure that the points are properly spaced such 
that when M-lines are formed, the distribution of points on adjacent N-lines are fairly 
similar resulting in smooth curves. 


The Input distribution, augmented in number opt on results in a distribution which is 
similar to the initial, defining distribution, but contains a uifterent number of points. The 
user must input properly distributed points, but he need not input an extremely large 
number of points. This option is useful for controlling the desired distribution without 
having to load a large number of points and without having calculate whnt the 
numerical values of the arc lengths are. 

The constant increments in arc length option .esults in points distributed uniform’y 
around the perimeter of tiic N-line. This option useful for smooth bodies that do not 
have large variations in curvature. Use of this op cion for a wing component is not 
recommended because it would result in too few points near the leading and trailing edges 
to adequately represent the wing for potential fl >w calculations. 

The cosine spacing option results ' 1 very useful distribution for wing components. 
This option results in a very fine sp'icir n ar the leading and trailing edges and coarse 
spacing in regions away from these edges. 

A very useful option is the curvature-dependent option where the point spacing is a 
function of the local surface curvature. The results of potential flow methods are 
improved by using fine spacing in regions of high curvature. In this option, the spacing is 
linearly dependent on the absolute value of the curvature. This selection is useful for 
both wir .3 and body components because some control over the variation of the spacing is 
provided. When this option is used for a lifting component, artificial curvature is added in 
the usually flat trailing-edge regions resulting in more points bunched on the trailing-edge 
as required by potential flow methods. 

If none of the preceding options are adequate, the user cnr. specify a distribution. 
This distribution is specified in the form of normalized arc length (0.0< arc length<1.0). 

There are four spacing options available for N-lines (spanwise spacing for wing and 
lengthwise spacing for fuselage). The redistribution of points on the initial N-lines results 
in a situation where each N-line has the same number of points distributed in a similar 
manner. A set of M-lines is generated by connecting the corresponding points on all N- 
lines. The M-lines should be smooth and have fairly small curvature since the distribution 
of points on each N-line is the same. The process of augmenting and redistributing the N- 
lines is accomplished by augmenting and redistributing points along th M-Unes. It is 
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required that each M-’ine have a total length greater than zero. The four options 
available for the spacing of N-lines are as follows: 

o Input distributior, (..altered 

o Input distribution, .»ugmented in number 

o Constant increments 
o Iser-specified distribution 

These spacing distributions are completed analogous to the preceeding options for 
distributions of points on N-lines. 

There are two modes of operation of the geometry package during the distribution 
of the N-lines. These two modes are the planar-section node and the arc-length mode. 
The planar-section mode, which is the most commonly used mode, redistributes the points 
in such a way that all N-lines are parallel except perhaps the first and last ones on a 
component. In the arc-length mode, the points along M-lines are distributed in such a 
manner to allow the N-lines to form smooth curves around a nonplanar edge of the 
component. This is useful for a case where one edge of a component may be so highly 
nonplanar that a strip bounded by that edge and an adjacent planar N-line would vary 
drastically in width. Ti e arc-length mode would allow the adjacent N-lines to form 
smooth curves nearly parallel to the nonplanar edge. 

After paneling the isolated components, the next major operation performed by the 
geometry package is the calculation of the intersection between components. The 
intersection curves between components are calculated using a hybrid curve-fit/surface 
fit approach. A set of intersection points is obtained by calculating where the M-lines of 
oie component (designated the intersecting component) pierce the surface of the oiher 
component (designated the intersected component). The method calculates the 
intersection point of a curve and a surface. After the intersection is determined, the 
intersecting components are repaneled so that adjacent panels on either side of the 
intersection curve line up in a manner which is satisfactory for potential flow 
calculations. 

There are some limitations and restrictions that appiy to the calculation of 
intersection curves between components. This method is satisfactory for well defined 
wing-fuselage intersections, wing-pylon intersections, etc.; however, it is not designed to 
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handle complex cases where the intersection curve is discontinuous or is not well defined 
due to fillets or smooth transition? from one component to another. Guidelines to follow 
when calculating the intersection between components are summarized (from Reference 
28 ) as follows: 

o A distinction can be made between intersecting and intersected components. 

o A component can intersect only one other component and can De intersected by 
only one other component. If a body intersects or is intersected by several 
bodies, it r.iust be divided up into several components. A single component can 
intersect one component and be intersected by another component, however. 

o The M-lines on the intersecting component pierce the surface of the intersected 
component at a sharp angle. Surfaces are not tangent where they are meet. 

o The intersecting component has at least one N-line which lies entirely in the 
interior of the intersected component. 

o No M-line or. the intersecting component intersects the intersected component 
more than once. 

The final function of the geometry package is to repanel all components that 
intersect other components. Some important features of the final repaneling of 
components are: 

o That portion of any component which falls inside another adjacent component is 
eliminated or at the user's discretion designated as extra strips or ignored. 

o The entire component is repaneled to insure a smooth distribution of tht 
paneling over the entire component. 

o The user may specify a repaneling option with exact panel matching between 
the components or panel matching at every second point on the intersection 
curve. 
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o All intersecting components (typically the wing in a wing-body intersection 
problem) are repaneled the same way whether they are lifting or nonlifting 
components. There is nc redistribution of points along N-lines, only a 
redistribution of N-lines. A new N-lir.e is added along the intersection curve in 
every case. The remaining N-lines on the exterior of the component are 
respuced to avoid irregularities in the widths of the strips. 

o The repaneling of a nonlift^ng intersected component in an intersection problem 
was designed primary for fuselages. Three options are provided for repaneling 
of nonlifting intersected components. The first is no repaneling at all. The 
second and third options are designed to produce panel distributions that depend 
upon the paneling scheme of the intersected component. With each of these 
options, the bcdy is divided into four components. These components are 
defined as that portion of the body forward of the leading-edge point of the 
intersection curve, that portion of the body aft of the trailing-edge point on the 
intersection curve, that portion of the body above the intersection curve, and 
that portion of the body belov’ the intersection curve. The last two options 
differ only in the distribution of panels in the regions above ind below the 
intersection curve. Matching with every panei or every other pane! on the wing 
can be selected by the user. 

o For the repaneling of lifting intersected components, the user also has three 
options. The first is to do no repaneling. The second defines a region of 
ignored elements around the intersection curve but results in gaps in the region 
of the intersection curve. The third is similar to the second except that the 
gaps are filled with nonlifting panels. 

Knowledge of the preceeding terminology and restrictions is essential for 
understrmding the geometry package utilization presented in Appendix A. The primary 
output of the geometry package is a VAX file containing the desired paneling definition of 
all of the aircraft components. The format of the coordinates is acceptable for input to 
PAN AIR whe.i the appropriate JCL and boundary condition definitions have been added. 

It may be desired to divide some of the components into several different networks ror 
the PAN AIR problem. Currently, this must Le handled by the user ujing ihe VAX editor 
mode. 


4.2. GRAPHICS 


The coupling of the geometry package with a graphics package is a very important 
capability. This allows for easy verifying and editing oi the geometry files or PAN AIR 
input files. With the graphics package, the paneling scheme may be rotated to any desired 
viewing orientation and scaled to any desired viewing size. The entire configuration, any 
individual component (network, if plotting PAN AIR input file), or any combination of 
components may be viewed. Another important fe iture incorporated into the graphics 
package is a nidden line removal option reported in Reference 29. This feature adds a lot 
of clarity to any particular view thus allowing easier identification of any problem areas 
needing editing. This feature is illustrated in Figure 4.2 showing a detailed panel 
arrangement generated for PAN AIR. User instructions for the graphics package and the 
code developed for this package are presented in Appen^x A. 


4.3 PANELLING OF VOUGHT VATOL FIGHTER MODEL 

The panelling scheme used for the analysis of the V ought VATOL Model using the 
PAN AIR code discussed in Section 3.2 was prepared by exercising the preprocessor 
module. The panelling definition that was available as a starting point was unsatisfactory 
for input to the PAN AIR code. To accomplish this repanelling by hand calculation and 
manipulation would have been a time consuming and error prone task. Using the 
preprocessor geometry package Linked with a graphics package significantly reduced the 
tedious tasks to be done by hand and provided a quick and easy way to verify the final 
panelling scheme. With these tools, several panelling arrangements were investigated 
before choosing the one deemed most desirable. 

The starting and the final refined panelling scheme for the Vought model are shown 
in Figure 4.3. In addition to several minor coordinate errors that were easily detected 
with the graphics package, the initial panelling contained several areas that would have 
had led to problems with the PAN AIR code. The chordwise cuts on the wing and canard 
were not aligned and the panels along the fuselage and nacelle did not always match. In 
addition at the abutment of the different components there were mismatches between 
adjoining panels. It was desirable to have at least two panels between the canard wake 
and wing surface; the initial panelling had only one. These problems would have resulted 
in PAN AIR failures and/or would have resulted in questionable PAN AIR predictions. The 









Initial and Final Panelling Schemes for Vought VATOL Model 


spacing options in the geometry package allowed the user to easily specify the spacing on 
each component thus eliminating the problems. The intersection option in the geometry 
package was also used to ensure matching between the fuselage and wing. 

The final panelling scheme for the Vought VATOL model as input to the PAN AIR 
code is shown in Figure 4.4. The wake networks were removed for clarity. The PAN AIR 
predictions for this arrangement were presented in Section 3.2. 
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5. ENGINE SIMULATION MODULE 


Modem aircraft that are designed for STOL operation often supplement 
aerodynamic lift with direct thrust from the propulsion system or from other devices 
dedicated to the production of direct lift, such as lift jets. In either case, there is an 
injection of high velocity air and/or exhaust gases into the freestream flow. This flow 
condition is also experienced by VTOL aircraft in transition between hovering and 
conventional flight. At the low speeds associated with this type of flight, the jet velocity 
to freestream velocity ratio is relatively high, and hence, the interference phenomena 
between the two flowfields can have a significant influence on the aerodynamic forces on 
the surface of the aircraft. 

The Engine Simulation Module is designed to include techniques that will simulate 
flow perturbations caused by the propulsion system in an aerodynamic potential flow 
analysis code. In a previous study (Reference 20) two basic ideas for modeling power 
effec , in tne PAN AIR code were evaluated. The first approach, which is illustrated in 
Figure 5- la required specification of the velocity or mass flux boundary conditions on the 
nozzle exit plane. It was hoped that the aerodynamic solution performed by PAN AIR, 
with high velocities specified at the nozzle exit, would simulate a plume and cause the 
desired flux perturbations in the external flowfield. Wake networks in the approximate 
shape of a plume surrounding the exit would be utilizea to sustain the high velocities 
do* 'stream of the exit plane. Several variations of boundary conditions were 
investigated to implement this approach. It was found that some of the combinations of 
boundary conditions were not properly handled by the PAN AIR c de. In other cases that 
were apparently handled correctly, mathematically speaking, the velocity downstream of 
the exit plane decayed too rap.dly. In fact, computations indicated ‘.hat the exhaust 
velocity decreased to almost freestream velocity within one nozzle exit diameter. Thus, 
it was concluded that a plume could not be satisfactorily simulated by specifying the 
velocity on the exit network. 

The second approach addressed in Reference 20 was to represent the plume with 
permeable networks to represent the boundary. Flow entrainment was simulated by 
specifying a velocity normal to the panels of the plume. This approach is illustrated in 
Figure 5~l(j). Plume modeling methods must be used external to the PAN AIR code to 
derive the shape and boundary conditions that represent the plume. The PAN AIR code 
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Techn jues for Modeling Exharat Jets 



appeared to correctly analyze the configurations with plumes modeled in this manner. 
Therefore, the study reported in Reference 20 recommended this approach to model’ng jet 
exhaust flow in the PAN AIR code. 

In the current study, a method was selected for use in representing plumes with 
permeable networks. The conditions addressed are limited to supersonic exhaust jets in a 
subsonic freestream flow. The exhaust may be aligned wii-h or slightly inclined to the 
freestream flow. Although the primary objective has been to develop methodology for 
low-speed applications, this method may eventually be used throughout the subsonic Mach 
range. This section of the report discusses the plume modeling method that was selected 
and the approach that was taken to incorporate it into the Engine Simulation Module. 

User instructions and a sample problem are presented in Appendix B. 


5.1 SELECTION OF THE PLUME MODELING METHOD 

A literature survey was conducted to find existing plume modeling codes that could 
be adapted for use in the Engine Simulation Module. Several methods were found that can 
be used for predicting the effects of exhaust plumes on the configuration afterbody. 
Putnam and Mace (Reference 3.0) summarize these methods and present a discussion of 
two approaches to the solution of nozzle exhaust flow. The first method is based on a 
solution of the Navier-Stokes equations and the second is based on a patched 
inviscid/viscous interaction approach. 

The computation of jet exhaust flowfields based on the solution of Navier-Stokes 
equations is now possible due to the availability of faster computers. These solution 
techniques are now being applied to both two-dimensional and three-dimensional 
problems. However, the application of these methods is not straight forward and requires 
familarity with a variety of techniques to obtain a valid solution. Even with these 
extended efforts, the large computer time required for a Navier-Stokes solution preclude 
its use for the analysis of complete configurations includ'ng jet effects. 

Patched inviscid/viscous solutions to plume analysis, which have been shown to 
provide good predictions of the plume characteristics as well as the nozzle surface 
pressure distributions, are easier to use and require significantly less computer time than 
the Navier-Stokes solutions. Their apprr.jc-h to solving the nozzle flow problem 3 to 


divide the plume and external flow into several distinct regions, each of which can be 
analyzed independently. The various regions are analyzed in an iterative manner until 
convergence is obtained. 

Two of the foremost plurne modeling code * that use Navier-Stokes and patched 
inviscid/viscous solutions are the Cline code rnd the Wilmoth code, respectively. These 
methods are presented in References 31 and 32. An isolated nacelle model with a 
specified set of exit conditions was analyzed with each of these codes. A comparison of 
the computed flow properties are compared at the nozzle exit (X=S.7) and at two 
downstream stations in Figure 5-2. These properties match reasonably well, except for 
the radial velocity at the most downstream station (X=15.8). The Navier-Stokes solution 
had been computed for 2,U00 iterations for the data shown here, and it is noted that the 
solution for the radial velocity had not completely converged. Based on the plume 
predictions discussed above, and computer resource requirements, the Wilmoth code wt. 
selected for use in the Engine Simulation Module. 

The Wilmoth code, whicn is also known as RAXJET, performs a two-dimensional 
viscid analysis of a region that includes both an external flow and an exhaust flow. 
Several assumptions were made (to be discussed in Section 5.3) in order to adapt it to the 
Engine Simulation Module. One important consideration in. the selection of this code is 
that it is currently being developed into a full three-dimensional procedure through 
funding by the NASA Langley Research Center. P.AXJET's capability to predict the 
effects of viscosity in the external flowfield is not currently being used. 


5.2 DESCRIPTION OF THE RAXJET PROGRAM 

The RAXJET code is comprised of methods that evolved over a number of years 
through the efforts of several researchers. These methods are the South-Jameson 
relaxation external flow analysis procedure, the Reshotko-Tucker boundary-layer solution, 
the Presz separation model, the Dash-Pergament mixing model, and the Dash-Thorpe 
inviscid plume model. These computational techniques are coupled ite'-atively into a 
single computer program called RAXJET. This program predicts subsonic and transonic 
axisym metric flow over nozzle afterbodies with supersonic jet exhausts and accounts for 
boundary-layer displacement, separation, jet entrainment, and inviscid jet plume 
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blockage. The various computational domains where different solution algorithms are 
employed in RAXJET are illustrated in Figure 5.3 and are summarized below. 

Inviscid External Flow Solution - The relaxation procedure of South and Jameson 
(Reference 33) is used for solving the exact nonlinear potential flow equation in 
nonconservative form. A computer code developed by Keller and South, commonly 
known as RAXBOD, (Reference 34), is used to implement this technique. 

Inviscid Jet Exhaust Solution - RAXJET uses the computer program SCIPAC 
(Reference 35) to solve the flowfield in the inviscid jet region through a solution of 
the conservative finite-difference form of the inviscid flow equations. The nozzle 
exit flow is assumed to be supersonic, and the calculation is initiated at the exit 
with the specified exhaust properties. The Mach disk location is determined by the 
iterative procedure of Abbett (Reference 36). 

Boundary- Layer Solution - The properties in the attached boundary-layer region are 
solved by a modified version of the Reshotko-Tucker integral method for turbulent 
How (Reference 37). The integral solution is obtained by conventional boundary- 
layer marching procedures to yield the displacement thickness distribution over the 
oody using a computer program described in References 38 and 39. 

Separated Flow Solution - The Presz Method (Reference 40) is used to predict flow 
separation and the discriminating streamline shape. The location of separation on 
the afterbody is calculated by a control volume technique. The discriminating 
streamline near the separation ooint on the boattail is calculated by a control 
volume analysis that solves int gral forms of the continuity and streamwise 
momentum equations to account for streamwise pressure gradients and surface skin 
friction. The discriminating streamline in the jet wake region is calculated by an 
integral method that accounts for entrainment effects based on a turbulent mixing 
analysis (Reference 41). 

Mixing-Laypr Solution - The mixing iayer is the region between the core of the 
exhaust plume and the externa! flow. A displacement-thickness distribution arising 
from entrainment into this layer is calculated by the overlaid mixing model of 
Reference 42 and the BOATAC computer program (Reference 35). This code solves 
the parabolic mixing equations by a finite-difference marching procedure. 
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Turbulence is modeled by either a mixing-length or a two-equstion transport model. 

A laminar viscosity option is included. Also calculated are an effective plume 

boundary that accounts for mass entrainment into the mixing layer and an inviscid 

plume boundary. The difference between the effective and inviscid plume 

boundaries define a displacement thickness related only to entrainment. 

The various codes discussed above are coupled together in an iterative procedure. 
The component solutions are performed in the following order. 

1. Calculate inviscid external flow field 

2. Calculate the inviscid jet exhaust boundary and flow field. 

3. Calculate the boundary-layer displacement thickness. 

4. Calculate the separation location. 

5. Calculate the shape of the discriminating streamline. 

6. Calculate the mixing-layer displacement thickness. 

7. Calculate a new effective body and plume shape. 

These steps are repeated in a single loop in the RAXJET code for a specified number 
of steps. Convergence is monitored manually by checking surface pressure predictions 
and/or boundary layer displacement thickness. A thorough discussion of the RAXJET code 
is presented by Wilmoth in Reference 32. 


5.3 MODIFICATIONS TO THE RAXJET PROGRAM 

Although the inviscid plume characteristics required for this study could be obtained 
from selected subroutines in the RAXJET code, the entire code was implemented in the 
Engine Simulation Module. This not only maintained the integrity of the code but also 
provided an easily accessible source to a number of parameters that are not currently 
being used. Two additional capabilities that may be added to the Engine Simulation 
Module are to (1) account for the influence of the fuselage/boattail boundary layer on the 
plume characteristics and (2) iteratively solve for the piume shape, accounting for the 
mutual interference effects between the plume and configuration boundaries. Maintaining 
the entire RAXJET code provides for this type of expansion without major revision to this 
portion of the module. 


54 


Several modifications were made to the RAXJET code in order to interface it w.th 
the Engine Simulation Module. For example, the input subroutine of the RAXJET code 
and the Engine Simulation Module were merged to avoid repetitious user inputs and 
several input parameters required by RAXJET were preset within the codo to specified 
values that are consistent with low-speed flight. Also, the nozzle boattail geometry was 
predefined within the input subroutine. This is permissible since the inviscid plume 
characteristics are independent of the noz Je boattail geometry, and because the plume 
boundary is r.on-dimensionalized in the RAXJET output routinej before subsequent use by 
the Engine Simulation Module. 

The primary enhancement made to the RAXJET code was the development of a 
means of computing plume characteristics that v/ould be meaningful in a PAN AIR 
analysis. This problem was made even more difficult since there is no unique definition of 
a plume boundary. Several combinations of Dlume boundary and inflow velocity were 
found to be equally effective. An example is taken from Reference 20 of an analysis of a 
plume shape computed with a Navier-Stokes solution that was defined as the focus of 
points defining the radial distance (y) at which the rate of change of the axial velocity 
(dVx/dy) was maximized. This plume shape was very irregular as shown in Figure 5 4. The 
same reference also shaws the results of an analysis made with a smoothed version of this 
plume shape (Figure 5.5). Comparison oetween these results show that either shape, 
although substantially different, can be successfully used in a PAN AIR analysis, provided 
the corresponding inflow velocities are applied in each case. This is as it should be, since 
the magnitude of the specified inflow velocity governs the change in the slope at the 
boundary. As long as the geometrical slope and the change in the slope due to inflow 
velocity add to the same value, the results computed by the PAN AIR 'ode will be nearly 
identical. 

Since the value used for the boundary of a plume can be somewhat arbitrary, the 
inviscid ninme boundary was selected because it could be easily obtained from the 
RAXJET code. The radii for this boundary were already computed within the RAXTt'T 
code; therefore, it was possible to obtain the inviscid plume boundary by adding a common 
block within the code to transport the values to an output subroutine. 

Entrainment of the external flow into the region of the plume is represented by an 
inflow velocity that is normal to the invisc’d boundary. This value is computed along the 
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boundary of the plume by a set of equations that relate the velocity at the iocation of the 
inviscid plume to the known velocities at the equivalent plume boundary. 

The only data that are passed from the modified RAXJET code to the Engine 
Simulation Module are the inviscid plume boundary and the corresponding inflow 
velocities. These values are nondimensionalized by dividing by the exhaust exit radius and 
freestream velocity, respectively. Therefore, these parameters can be applied to a PAN 
AIR run by simply scaling them according to the dimensions of the configuration under 
study and the freestream velocity. 


5.4 INTERFACE WITH THE AERODYNAMIC CODE 

The PAN AIR code is quite complex and d.fficult to modify, however, it is 
extremely flexible in regard to the network shapes and boundary conditions that it will 
accept as input. Because of this flexibility, it was possible to develop the Engine 
Simulation Module such that it can interact with PAN AIR exclusively through the input 
data. To facilitate usage of the Engine Simulation Module, the RAXJET code has been 
directly included in the module as a group of subroutines. This eliminates the problems 
associated with passing data files between the modified RAXJET code and subroutines 
developed for other tasks to be carried out in the Engine Simulation Module. 

User convenience has been emphasized during the development of this module. It is 
currently installed on the NAS> Ames' VAX 1 1/780 computer system and may be executed 
with only two input files: (11 a basic PAN AIR input file and (2) an input file to specify the 
location of the nozzle and properties of the exhaust flow. These files must he in the same 
directory as the Engine Simulation Module as described in Appendix B. 

An overview of the activities of the Engine Simulation Module is shown in 
Figure 5-6 and they are performed in the following order: 

1. Read input data (i.e. name of original PAN AIK input fils and properties of the 
jet exhaust). 


2. Read original PAN AIR file. 












3. 


Rur. modified RAXJET code. 


4. Compute the panel corner-point coordinates and boundary conditions for the 
plume. 

5. Compute the coordinates for the plume base and the plume wake. 

6. Generate a modified PAN AIR input file including the plume simulation. 

Thr output file generated by the Engine Simulation Module can be submitted for a 
PAN AIR run after a few items are manually checked as explained in Appendix B. 

In order to make use of the two-dimensional data from the RAXJET code, it was 
necessary to make two assumptions regarding the three-dimensional behavior of plumes. 
The first assumption is that if the jet is injected at a small angle to the freestream flow 
then its center line will become parallel to the freestream at a distance equivalent to 10 
nozzle exit diameters downstream of the exit as illustrated in Figure 5~7. The path of the 
plum* centerline is assumed to b« represented by th* second order equation: 

A2 - /) AX* 4- 0AX -4- C 

where the coefficients A, B and C are determined by applying the following three 
boundary conditions. 

1. The nozzle centroid is a point on the path. 

2. The path is normal o the average nozzle exit plane. 

3. The path is parallel to freestream at 10 nozzle diameters 
downstream of the exit. 

The second assumption regarding the three-dimensional behavior of plumes 
(illustrated in Figure 5~8) is that the plume expands radially outwards from the plume 
centerline path by the same ratio in which the two-dimensionai plume expands. This 
assumption ignores three-dimensional effects on the plume boundary. 

The generation of the plume netwoncs is governed by the information provided 
through the input file. The user must specify which of the configuration networks abut 
the plume and also which edge of the network forms the abutment. Nozzle-type 
networks, shown in Figure 5 _ 9, illustrate the positions of the solid panels to which the 



Figure 5-7 Centerline Path for Deflected Plumes 






Figure 5-9 Illustration of Abutment Between the Nozzle and Plume 

Networks 



plume networks will abut. One plume network is developed for each of the solid networks 
in the exit abutment. Thus, a plume may be comprised of several networks, such that 
each segment is constructed with exact corner-point matching at the abutment between 
the configuration and the plume networks. This type of abutment minimizes the 
likelihood of an error being encountered in the PANT AIR code due to a panelling 
deficiency. 

PAN AIR's CLASS 2 boundary conditions are applied to the networks of the plume. 
This class is for a specified normal mass flux analysis and are applied through the 
equations 

CT = —Ue • r -+- S n / 

<P U - 0 

Specification of these boundary conditions allows the plume entrainment characteristics 
to be specified through term. The boundary condition information is automatically 

generated by the Engine Simulation Module, using the RAXJET inflow velocity at each 
panel center point, and included in the new PAN AIR file. 

When the plume networks are added to the configuration panelling arrangement- the 
original nozzle exit network is automatically removed from the file, and base networks 
are added to the downstream boundary of the plume in a manner similar to that shown in 
Figure 5— 10. One base network is developed for each of the networks defining the plume, 
and they all connect to a point at the plume centerline. The plume base network is also 
constructed to provide exact corner point matching at its abutment with the plume. PAN 
AIR's CLASS 4 boundary conditions are applieu to the plume base network, which allows 
for the selection of specific terms. The governing equations that are used are 

yU- = - ^ 

4> l = o 


These equations, in effec., specify that there is no flow tangent to the plume base and 
allow the flow normal to the base to be determined by the aerodynamic solution. Thus, 
the flow streamlines near the plume base do not have to turn a corner and follow the 
closure. 



5.5 VALIDATION OF THE ENGINE SIMULATION MODULE 


Isolated Nacelle ModeL A preliminary application of the Engine Simulation Module 
was made by running the code to predict the effects of nozzle pressure ratio on the 
isolated nacelle model shown in Figure 5*11. This mooel was tested in the 16-Ft. 

Transonic Wind Tunnel at the Langley Research Center with high pressure air ejected 
through the nozzle to simulate a jet exhaust flow. Nozzle boattail pressure dats were 
recorded at several nozzle pressure ratios and are documented in Reference 43. The 
measured effects of the nozzle pressure raiio on the boattail surface pressures are shown 
by the data in Figure 5*12. The lowe t .tach number tested, 0.6, was used in this study. 

The panelling arrangement shown in Figure 5*13 was developed to represent the 
basic geometry cf the isolated nacelle model, and a PAN AIR file was prepared for a 
power-off run. The Engine Simulation Module was then exercised using this PAN AIR file 
to create three new files, each for a different nozzle pressure ratio. The plume radii 
distributions and the entrainment velocities are shown in Figure 5*14. PAN AIR runs 
were then made with each of the modified files, resulting in the boattail pressures shown 
in Figure 5-15. Comparisons with the test data (Figure 5-12) show that the predicted 
power effects have the correct "rends but the pressure values near the nozzle exit are too 
large in magnitude. 

To investigate the reason for this pressure discrepancy, the unmodified RAXJET 
code was run for a two-dimensional shape that was the 3ame as a cross-section of the 
isolated nacelle model. Although RAXJET is a two-dimensional code, it has been shown in 
Reference 32 to be capable of handling the axisym metric configurations, such as this 
model. The code was run for twenty iterations in order to allow the solution to converge 
and account for the viscous effects on the configuration as well as on the exhaust flow. 
The predicted boattail pressures. Figure 5-16, compare well with both the levels and the 
..ends of the experimental data (compare Figures 5-12 anc.' 5-16). This indicates that the 
information obtained from the RAXJET code is correct. 

In the Engine Simulation Module, the boundary layer buildup and flow separation on 
the nozzle boattail are ignored. This should increase the blockage effects of the plume 
and hence, increase the boattail pressures just forward of the plume. In the absence of a 
boundary layer, the flow near the surface of the model must turn sharply in order to 
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Figure 5-11 Isolated Nacelle Model 
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Figure 5-14 


Plume Shapes and Entrainment Factors for the Isolated 
Nacelle Model 





Figure *-15 Noezle BoatUil Pressures Obtained from the Engine 
Simulation Module end PAN AIR 
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follow the surface of the plume, thus causing a compression (Figure 5 — 1 7>. If the 
boundary layer were represented by a displacement thickness, as shown by the cross 
hatched area, the external flow would not be turned es sharply, and the boattail pressures 
would be reduced. It is anticipated that in future correlations at lower Mach nur oers, the 
smaller effect, of the boundary layer will be masked by the much larger effect of flow 
entrainment into the plume. If this proves to be the case, then power- effect? on V/STOL 
configurations will be obtainable at low speeds i ith the current approach. The use of this 
method at higher Mach numbers will probably require a viscous simulation on the nozzle 
boattail. 

Ames/Vought ModeL Thn model, discussed in Section 3.2, was used to validate the 
methodology developed ir. the Ei.g 4 '^ Simulation Module. Since this model was not tested 
with operating engines, typical values for nozzle exhaust parameters were used as input to 
the module. The modified panelling arrangement, with the plume added, is shown in 
Figure 5-18. This can be compa-ed with the panelling arrangement for the basic 
configuration shown in Figure 3-11. 

The file generated by the Engine Simulation Module, including the plume simulation, 
was analyzed with the PAN AIR code. This analysis was performed to check the ability of 
the Engine Simulation Module to communicate with the PAN AIR code and to establish 
generax trends predicted for the effects of the plume. There are two factors that 
prevented a realistic analysis of this configuration with the existing code. The first 13 the 
large base area between the periphery of the plume and the edge of the aft fuselage. In 
the absence of a technique to accurately model this geometry, the nozzle base networks 
were assigned impermeable-suriace boundary conditions, Thus, the flow was forced to 
follow the contours of the fuselage and base ne* works, which caused a turning of the flow 
through 90 deg at the nozzle base. 

The second problem is the spacing ot’ the exhaust plumes. The Engine Simulation 
Module is designed to perform analyses of single-nozzle configurations only. It may also 
be used for multi-nozzle configurations if the spacing is sufficient to justify the omission 
of mutual interference effects between ,w e two exhaust flows. The two lets on the 
Ames/Vought model are closely spaced and undoubtedly have significant interference 
effects. 

Althougn this model presents the two problems discussed above, an analysis was 
performed to determine if the correct trends wou'd be predicted. Test data for this 




model are available only with a small amount of nozzle exit flow, which resulted from a 
simulation of inlet conditions. This did net simulate realistic nozzle flow; therefore, the 
computed effects of the plume are compared with test data on the Ames/GD model 
(Figure 5-19). This qualitative test-to-theory comparison is for the wing upper-surface 
pressure near the one-third exposed semi-span of each modeL An angle-of-attack of zero 
deg was selecteci to minimize the vortex effects in the experimental data. The power- 
effects in both sets of data are shown to propagate forward on the configuration and 
cause an almost constant pressure decrease over the wing chord. 




























6. VISCOUS SIMULATION MODULE 


The simulation of viscous flow phenomena in a potential flow analysis is a difficult 
and tedious task, but one that needs to be addressed if realistic aerodynamic predictions 
are to be generated for V/STOL configurations. There are several aspects to viscous flow 
phenomena, namely, 

o Laminar and turbulent boundary layers 
o Laminar and turbulent flow separation 
o Flow bubbles 
o Vortex sep'jalion 
o Traili-'g vc-'ex sheet roll-up. 

Each of these aspects need to be addressed in a comprehensive aerodynamic 
prediction method, but 3uch is not entirely within the scope of this study. As an initial 
step toward the development of a viscous method, this study addresses two of the more 
prominent of the viscous flow phenomena - turbulent boundary layer buildup and trailing- 
edge separation on lifting bodies. 

The classical way of simulating the viscous phenomena is to define an equivalent 
body that will simulate viscous effects when analyzed in potential flow. Definition of the 
equivalent body is usually accomplished through an iterative coupling of the analysis code 
with a boundary 'ayer code. The success of this type of solution depends on: 

o The accuracy of the aerodynamic flow-field prediction method 

o The accuracy of the method to compute boundary-layer displacement thickness, 
separation lines, etc. 

o The accuracy of the equivalent body to model all important aspects of the real 
flow field 

The outline of an iterative scheme to simulate viscous effects using an equivalent 
body approach is shown i r . Figure 6.1. Starting from an ir.viscid solution, boundary layer 
characteristics are computed. These characteristics are used to define an equivalent 
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Figure 6.1 Iterative Solution for the Viscous Flow Simulator 












body. An inviscid solution is obtained for the equivalent body. This process is repeated 
until the inviscid flow field computed for the equivalent body becomes invariant between 
successive iterations. At this stage, the solution is completed. 

Due to the unexpected delays encountered in the availability of the baseline code, 
the programming of the complete iteration cycle has not been accomplished. The 
progress to date has been limited to developing methodology to define an equivalent body. 
The basic loop coupling the PAN AIR and Whitfield codes has been accomplished. This 
loop may be easily iterated as many times as desired by the user. The automation of this 
iteration can easily be completed when the development of a satisfactory viscous 
simulation is completed. The high cost of running PAN AIR and the manipulation of large 
blocks of flow properties and geometry for a realistic configuration has hindered the 
development of this iterative loop. 


6.1 WHITFIELD BOUNDARY LAYER METHOD 

The boundary layer prediction method selected for inclusion in the viscous 
simulation module is the 2-D Whitfield code (Reference 44). This method was selected 
because of the following reasons: 

o It has shown good agreement with experimental data. 

o The resulting computer code is relatively small. 

o Computation times are low. 

o It is widely used in industry. 

o It has been successfully applied as a strip boundary layer method in conjunction 
with a 3-D inviscid calculation method. 

o It is less complex thus more suited to inplement in an iterative-type solution. 

Turbulent boundary layer methods can be classified as either integral or differential 
techniques depending upon the method of solution. Integral methods require the solution 


to one op more ordinary differential equations; however, differential methods require the 
solution to a system of partial differential equations thus requiring more computational 
capabilities. Differential techniques are regarded in general to be more accurate than 
integral methods, but due to their requirement for more computer time and storage are 
not suited for the present application. 

Whitfield attempted to develop an integral method that would rival the accuracy of 
differential methods without taxing the available computer resources. His method differs 
from other integral techniques primarily in the velocity profile and the velocity- 
temperature relationships used. The velocity profile used by the Whitfield method is an 
analytical expression that depends on the local values of skin friction, shape factor, and 
Reynolds number based on momentum thickness. The significance of this expression is 
that no new parameters are introduced into the integral equations. 

Based on the results presented in the literature, Whitfield achieved the desired 
results. Shown in Figure 6.2 taken from Reference 44, arc the results presented by 
Whitfield for the boundary layer displacement thickness, momentum thickness, shape 
factor, and local skin friction coefficient for the upper surface of an airfoil. The velocity 
profiles on the same airfoil are shown for two values of Reynolds Number in Figure 6.3 
which was also taken from Reference 44. The agreement with experimental data 
indicated in these and other comparisons was one of the major reasons for the selection of 
the Whitfield procedure. 


6.2 INTERFACE WITH THE AERODYNAMIC CODE 

The Viscous Simulation Module was formulated to apply a two-dimensional boundary 
layer procedure to three-dimensional flow fields using a strip approach on lifting surfaces. 
The chordwise pressure dis*ribut ; >ns computed by the PAN AIR procedure at several span 
stations are used as input to the Whitfield procedure. The resulting boundary layer 
predictions for displacement thickness and separation points are used to define an 
equivalent body which when analyzed in potential flow will simulate boundary- layer 
buildup and trailing-edge separation effects. 

Two approaches defining the equivalent body were considered. The first was to add 
the calculated displacement thickness normal to the surface and thus define a new surface 
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coordinate for input into PAN AIR. This approach had the disadvantage that 3ince the 
network geometry was being modified, the intersection abutment definitions between 
adjacent networks would be effected. This could consequently lead to a redefinition of a 
large part of the configuration geometry. 

The second approach was to model the equivalent body by specifying a normal mass 
flux emitted by the network as illustrated in Figure 6.4. In this approach, the local mass 
flux is defined by the following equation. * 

-Kir] 

This approach does not require any changes in geometry but does require a boundary 
condition specification change and an input of the mass flux values for the analysis of a 
new PAN AIR problem. This approach was selected because it was judged to be easier 
than the geometrical definition of the basic configuration. 

The loop required to implement this approach is depicted in Figure 6.5. The inviscid 
PAN AIR problem is first run without any corrections. The file containing the inviscid 
flow properties is generated on logical unit 10 by the PAN AIR code if the input contains 
the required records for executive Print-Plot Processor (PPP) module. These records are 
described in the PAN AIR Users Manual (Reference 16). The file created on logical unit 
10 in the PPP module must be transfered to the VAX computer to execute the Viscous 
Simulation Module. The VAX system will allow for more user interaction and 
convenience. Once the flow properties are transferred to the VAX, they are used as input 
to the Whitfield Boundary Layer Procedure. The Whitfield predictions for displacement 
thickness and separation points a.e then used to calculate the mass flux required to define 
the equivalent body. A new PAN AIR problem is then generated. Once the inviscid flow 
properties are transferred to the VAX, this loop is completely automated. It is assumed 
that both the original PAN AIR problem and the calculated inviscid flow properties are 
stored in separate files on the VAX system. 

The programs required to produce a new PAN AIR problem for the equivalent body 
are shown in Figure 6.6. All of these programs are executed by a central command file 
named VISC.COM on the VAX computer The user is assumed to be interactive during this 
loop and is occasionally prompted for information such as file name containing flow 
properties and Mach number and Reynolds Number for boundary layer analysis. Tne 
source listing for each of these programs and user instructions for the execution of tne 
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Viscous Simulation Module are included in Appendix C. A discussion of each of these 
programs including required input and primary function is contained in the folio g 
paragraphs. 

The program which reads the file containing the inviscid flow properties from PAN 
AIR is named EDITTEN. This program was developed at NASA Ames. This program is the 
first program executed by the command moduie and accomplishes the following tasks: 

o Reads the output file generated by the PPP module of the PAN AIR co> e and 
separates out the desired flow properties. 

o Generates a VAX command file named PATEMP. COM that, when executed, 
sets up a RIM data base containing the inviscid flow properties. 

o Generates a file named PATEMP. INFO containing information from the PAN 
AIR run which can be printed by the user if desired. 

o Generates a file named INCRX.TMP which contains the indices of the networks 
in the PAN AIR problem. 

The command file named PATEMP.COM generated by EDITTEN to set up the RIM 
data base containing the calculated flow properties is the second program executed by the 
command file, VISC.COM. This file contains the necessary RIM commands to establish a 
KIM data base which will have the name NETWORKS. The third program executed by the 
command module is the SELECT program. In many cases the upper or lower surface of 
the wing may be divided into several networks. The user must provide the number of 
networks and their identification numbers for both the upper and lower surfaces; these 
will be displuyed on the terminal for the user. The SELECT program will generate a 
command file named RUNR1M.COM, which will utilize the previously generated data base 
fiie NETWORKS, select the required flow properties for only the designated upper and 
lower surface networks, a.nd store them in ’.wo VAX files named WINGU.DAT and 
W1NGL.DAT. The RUNRIM.COM containing the RIM commands to accomplish these tasks 
is executed next by the central command file, VISC.COM. 

The files containing the required flow pexameters, W.NGU.DAT and WINGL. DAT, 
need to be converted to a format acceptable to the Whitfield orceedure. Th- program 


WHITIN was developed to accomplish this task. The user is asked to specify c geometric 
tolerance value to determine panel alignment in the chordwise direction, a Mach Number, 
and a Reynolds Number per million for the boundary layer analysis. A geometric 
tolerance value is required because the panel control points where the flow properties are 
computed by PAN AIR do not necessarily lie exactly on a straight line. The stagnation 
point at each station is then located. The location of the stagnation point is then used to 
generate two boundary layer analysis problems, one for the upper surface and the other 
for the lower surface. The length measured from the stagnation point along the surface is 
used as the length parameter in the boundary layer calculations. The result is a file 
named UPPER.DAT containing the boundary layer problems (one for each station) for the 
upper surface and a file for the lower surface names (LOWER.DAT). These files are then 
used as input to the Whitfield Procedure. A third file named STAG.DAT is also generated 
by the WHITIN program to keep track of the location of the selected stagnation points at 
each station. 

The results from the Whitfield program are stored in two VAX files named 
UPROUT.DAT and LOWOUT.DAT. It is now necessary to sort the results oack into an 
order consultant with the PAN AIR scheme, i.e. by network column number, and row 
number. The RIM program was again used as the basic tool for this task. A program 
named WHITOUT wis formulated to utilize the Whitfield program output files to generate 
a command file named REORDER.COM for creating a data base usable by RIM. At the 
completion of the WHITOUT program, the RIM data base named ORDER is created using 
the REORDER.COM file. 

Once the data base ORDER is established, the commands to access the data base, 
sort the data into the proper order, and store the results is needed. The program SORT 
was written for this task. This program produces a VAX command file named 
RIMSORT.COM containing the RIM instructions to accomplish the desired results. The 
viscous module executes this command file at the completion of the SORT program. The 
results are stored in the VAX files named UPPER. OUT and LOWER. OUT. 

The only remaining task to complete the loop is to combine the boundary layer 
results with the original PAN AIR problem to generate a new problem with an equivalent 
body. This is accomplished in the program LINK. The boundary conditions needed to 
define the equivalent body are ncluded in the new problem. An example is included in 
Appendix C. 
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The viscous effects module is designed to operate on only one lifting surface at a 
time. The lifting surface may be composed of several different networks on the upper and 
lower surfaces. If more than one lifting surface is to be analyzed, (for example, a wing 
and a canard), they must be processed through the viscous simulation module 
consecutively. After a new PAN AIR problem has been generated for the first lifting 
surface, it is used to generate another PAN AIR problem for the next lifting surface and 
so on. The final PAN AIR problem will have the bourdary layer corrections for all lifting 
surfaces included. 


6.3 RESULTS FOR VOUGHT V/STOL MODEL 

The Vought VATOL Model was analyzed with the PAN AIR Code, as discussed in 
Section 3.2 and the aerodynamic flow properties were saved on a TAPE 10 file for use in 
the Viscous Simulation Module. The preliminary results of an analysis of the viscous 
effects of this model are presented in this section. 

An angle of attack of 8 degrees war selected for tne present analysis. The output 
file containing the PAN AIK predicted flow properties was input to the Viscous Simulation 
Module. Boundary layer calculations were made for both the wing and canard surfaces. A 
second PAN AIR run was made using the equivalent body to simulate the boundary layer 
eifects as defined by this module. As previously discussed, the present equivalent body 
model does not result in an actual change to the configuration geometry but consists of a 
specified mass flux over the surface. This mass flux is proportional to the gradient of the 
boundary layer displacement thickness. The main purpose of this exercise was to verify 
the Viscous Simulation cycle and to begin the evolution of an equivalent body definition 
technique. 

The transpiration method currently being used as an equivalent body appears to be 
the best approach to simulate viscous effects. Further refinements to the equivalent body 
will be necessary as additional data c ^relations are made. As the separation grows at 
higher angles of attack thus creating a large separated wake, the present equivalent body 
model may be altered to simulate th_ae effects. Additional specifications of the boundary 
conditions on the separated wing and wake may be necessary to correctly model the 
viscous effects. 
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The effects cc viscosity on the wing pressures of the Ames/Vought Model were 
computed with this technique and are shown as the increments between the solid and 
dashed lines in Figure 5.7. At both of these wing stations, the leading-edge suction 
pressures were decreased by the viscous effects. This is a well-known result of viscosity. 
There were other factors that overshadowed the viscous effects near the trailing-edge of 
the wing. As shown in Figure 6.7, the upper and lower wing surface pressures computed 
by PAN AIR divergered near the trailing edge at the 38% span station. Further outboard 
at the 63% span station, the pressures crossed near the 95% chordline and then diverged. 
Thus, the PAN AIR code did not satisfy the Kutta ccndit’on at the wing trailing edge. 

These inviscid PAN AIR predictions were used as input to the Viscous Simulation 
Module as a preliminary checkout problem to verify that the data-handling routines in the 
module were operating correctly. The module performed the analysis and computed the 
boundary-layer thickness shown superimposed on the airfoil in Figure 6.7. Here the 
computed pressures on the upper surface did not show a strong favorable pressure gradient 
at the trailing edge. The computed boundary layer displacement thickness at this station 
shows the anticipated trends. The primary impact of this boundary layer is to -educe the 
effective camber of the wing. The resulting changes in the wing pressure coefficients are 
indicated by the pressure plots. An assessment of the validity of the pressure changes 
near the trailing edge must be deferred until the Kutta condition is satisfied in the PAN 

I 

AIR analysis. 

Several improvements to the equivalent body definition and boundary layer method 
are underway but were not utilized in the current analysis. The present equivalent body 
used the free stream velocity as a multiplication factor to the gradient of the boundary 
layer to simulate the local surface shape change as indicated in Figure 6.4. This was 
convenient as a first approximation. It is more correct to use the local value of velocity 
which means the multiplication factor in the leading-edge would be almost twice that 
used in the present analysis. This would lead to a further magnification in the trends 
noted toward the leading-edge. This velocity term is already saved in the RIM data base 
ano the changes required to incluoe this term are underway. 

The data for the current problem under consideration were obtained at a very low 
Mach number and Reynolds number combination. The Whitfield program was developed to 
be valid into the transonic regime. Some modification to the code might be required at 
the low end of the spectrum to improve its applicability. Currently the Whitfield 
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Figure 6-7 Effect of Viscous Correction on Chordwise Pressure Distribution 




procedure estimates an initial value of boundary layer momentum thickness and shape 
factor based on Reynolds Number and Mach Number. Then the procedure uses a 
predictor/corrector scheme to march along the surface at a constant step size calculating 
the boundary layer properties. At some point downstream, the solution should be 
relatively independent of the initial conditions. The starting approximations and step size 
are being investigated for the present case. 

Due to the previously discussed problems, a complete viscous solution involving 
several iterations was not achieved during the present study. Solutions to these problems 
are currently being investigated. The proper equivalent body to model viscous effects will 
evolve as the method matures. 


7. CONCLUSIONS AND RECOMMENDATIONS 




The development of a V/STOL analysis method has been initiated, and progress has 
been made in the development of three modules. Significant conclusions from this study 
are discussed below: 

o The lift curve slopes computed by the PAN AIR code are generally in good 
agreement with experimental data. This is evidenced by the excellent 
agreement obtained in test-to-theory comparisions of lift curves for the 
Ames/Vought model discussed in this report and other configurations, such as 
the F-16XL analyzed by General Dynamics. However, the lift curves predicted 
for the Ames/GD model match the 3lope but not the level of the experimental 
data. 

o The pressure coefficients predicted by the PAN AIR code are in good 

agreement with experimental data except in local regions where viscous effects 
are known to significantly influence the flowfield. 

o -ue Preprocessor Module was found to be very useful in developing a panelling 
arrangement for the Ames/Vought VATOL model. Significant reductions in 
manual data manipulation were achieved. 

o Effective use of the Preprocessor Module requires extensive use of graphics 

capability to develop and display the panelling schemes for complex regions of a 
configuration and to rapidly detect panelling errors. This need was 
demonstrated in the panelling arrangement developed for the Ames/Vought 
VATOL model. The graphics package developed by General Dynamics cannot be 
transferred to NASA until the package is modified to operate with the NASA 
software. This was not accomplished since extensive graphics capability and 
more sophisticated hardware is already available at NASA Ames. 

o The Engine Simulation Module, which generates plume characteristics, 

predicted the correct trends in surface pressure changes with varying levels of 
nozzle pressure ratio. Boundary layer simulation on the nozzle afterbody is 
expected to further improve the predictions. 
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o The Engine Simulation Module can be used to simulate exhaust jets on 

configurations with non-complex nozzle arrangements. However, it cannot be 
used for complex configurations like the Ames/GD V/STOL fighter model. 

o The Viscous Simulation Module can be used to simulate viscous effects on 

lifting surfaces. The communication link between PAN AIR and boundary layer 
calculation procedures has been established. The viscou' effects computed for 
the Ames, 'ought VATOL fighter model did not show the correct trends, which 
indicates problems either in computing boundary layer characteristics or in the 
definition of the equivalent body. 

The progress made on the V/STOL Aerodynamic Prediction Technique is very 
encouraging and this work should be continued. Recommendations for future work are 
outlined below and are designed to supplement planned experimental V/STOL programs at 
NASA Ames. 

o Refine the Preprocessor Module to (1) read and modify existing PAN AIR files, 
(2) automate the procedures for redefining networks, i.e., combining several 
networks into one network and/or separating one network into several, and (3) 
initiate the development of an automated cnpability to allow multicomponent 
intersections and corner-point matching abutting networks. 

o Refine the Engine Simulation Module to (1) filow more user interface during 
plume generation, i.e., panei density, plume size, center-line location, etc., (2) 
incorporate constraints into the plume generation module tha. will force 
abutments between the plume and specified points on the configuration or 
wakes, (3) develop an iterative procedure to account for the aircraft flowfield 
influence on tne position and shape of the plume, (4) initiate the development of 
a capability foi the analysis of models with jets at relatively large injection 
angles to the freestream.. and (5) account for inlet flowfields. 

o Continue the development of the Viscous Module to (1) define a satisfactory 
equivalent body model to simulate boundary layer buildup and trailing-edge 
separation effects on lifting surfaces, (2) define an equivalent body to simulate 
viscous effects on podlike surfaces, and (3) develop empirical corrections for 
vortical 'lows. 
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APPENDIX A 


USER’S GUIDE TO TIIE PREPROCESSOR MODULE 


The appendix gives the user instructions required to run the Preprocessor Module, 
sample inputs, and results. Listings of the source codes develooed specifically for this 
module are included in section A. 2. This module was developed to be operational on any 
of the NASA Ames' VAX ll/780's. 

A. 1 Preprocessor Module Command File (PANEL.COM) 

The execution of the Preprocessor module is controlled by 1 command file 
(designated PANEL.COM). Every function performed by the Preprocessor can be 
executed by keying in the proper response to the prompts issued by this command file, if 
it is desired to operate one of the Preprocessor programs without entering the command 
file, any individual function may be performed by addressing the required program 
directly after making the proper assignment commands. Execution of the Preprocessor 
Module is initiated as follows: 

1. Press "(a) PANEL” (RETURN) 

2. The VAX will respond with a listing of the 'Terminal Type Indentifier Codes” 
and ask the user to "Enter Terminal Type”. The user enters the integer code 
corresponding to the terminal being used. For example, for a VT110 terminal, 
the response is: 

1 (Return) 

3. The VAX responds with a "WHAT NOW?" prompt. The available commands are: 

(a) HCPY - Run RASM on plot file 

(b) PGEN - Create a PAN AIR input file 

(c) CFIL - Create preiiminery geometry file 

(d) EXEC - Execute panel generation procedure 

A-l 


(e) iNPT - Generate input file to panel generation procedure 

(f) MODD - Modify geometry flies 

(g) PLOT - Plot geometry files 

(h) LOUT - Logout 

(i) HELP - List available commands 

The user now enters one of the above four letter commands io perform the desired 
task. For example, to plot a geometry file, the following command is entered: 

PLOT (RETURN) 

Execution new shifts to the plot program. The programs cilled by epch of these 
commands are shown in Figure A-l. Each of these programs may call other programs. 
After execution of the plot program, control is returned to the command file. 

The code contained in PANEL.COM is included in Section A. 2.1. Each of the 
available commands which result in a transfer to another program are further explained in 
the following sections along with a utilization for that progr m. As previously stated, 
each of these programs can be directed from the command file or executed separately if 
the user dejires. 

The commands which do no* result in a transfer to another program are explained 
below. 

1. HCPY: During execution of the graphics program which is initiated by the 
PLOT command, the coordinates of any view may be saved in a file. After 
transfer of control back to the command file, a plot of these views may be 
ofctained on the VERSATEC printer by executing the HCPY command. 

2. HELP: The available commands for execution from the command file are listed 
on the terminal screen by this '•omrr.and. 

3. LOUT: This command transfers control out of the command file at the end of 
any session. 
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• EXEC: INITIATES EXECUTION OF GEOMETRY PACKAGE TO PANEL CONFIGURATION 
AS SPECIFIED BY USER 






A. 1.1 Program to Create a Preliminary Geometry File (Command: C.'FIL) 


The purpose of this program is to help the user generate a preliminary geometry file 
to be used in the panel generation program. It is assumed that the user has the X, Y, Z 
coordinate definition of each component and wants to record them in a VAX file to 
initiate development of a detrHed paneling scheme for a PAN AIR problem. The 
coordinate definition may be very sparse as the geometry package wUl later augment and 
redistribute these points as desired by the user. This program will prompt the user for the 
number of points per column, the number of columns, and then a point by point data entry. 
The code for this program is presented in Section A.2.4. A program utilization is not 
required becuase the user is prompted for each input as required; however, a brief 
discussion of what the user will be orompi.’d for follows. 


The user is first asked to enter one of the fhe following codes to indicate whether 
additions are to be made to an existing file or entries are to be made to a new file. This 
prompt is as follows: 


"Enter the code corresponding to the method that you desire. Enter the negative of 
the code to continue a previous geometry definition." 


0 - Abort 

1 - Point by point data entry 

2 - Interactive configuration development 


The user is currently limited to entering either a 0 or 1 because the interactive 
development option is not available. 


For a point by point data entry, the user is next asked to enter the name of the 
preliminary geometry file name. This may be either the name of an existing file to which 
additions are to be made or the name of a new file to be generated. The next prompt is 
for a title to be placed on the first line of the file. 

The user is now prompted for a network title, the number of points per column, and 
the number of columns. The program then prompts the user to enter each X, Y, Z point 
(format as follows: XXX. XXX, YYY.YYY, ZZZ.ZZZ) until the entire network is defined. 
As many decimal places as desired may be used; however, each X, Y, Z must be entered 
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on a single line separated by commas. After completion, which is indicated by entering 
"QUIT", the data is stored in a VAX file under the name which was previously indicated. 

This program may be executed without entering the Preprocessor Command File 
(PANEL.COM) by entering the VAX command "RUN WRTCON." A preliminary geometry 
file may also be generated in the VAX editor mode by observing the following formats 
when creating the file. 

Line 1: Title (any desired title in A format) 

Line 2: M N NTITLE (title card for first network) 

Line 3: X Y Z (begin coordinate definition of first network, 
one point per line) 

Note: Repeat beginning at line 2 for each network. 

where: M = number of points per column 

N = number of columns 
NTITLE = network title 
X,Y,Z = coordinates of point 

Each network title card is entered in the format (214, A30) and each X,Y,Z 
coordinate is entered in the format (3F20.5). The file is complete when all networks are 
defined. 


A.1.2 Program To Create An Input Pile To The Panel Generation Procedure 

(Comm ind: INPT) 

After the preliminary geometry file has been created as described in Section A. 1.1, 
the input options for the Halsey/Hess procedure need to be combined with the geometry 
file to create an input file to the panel generation program (GEOM.EXE). These input 
options basically indicate the spacing options and number of panels desired for the final 
geometry defintion for the PAN AIR problem. The program (SMHESS.EXE) written to 
perform this task is written in a conversational mode. The program defines each desired 
input then prompts the user for a value. A definition of the input parameters required for 
the Halsey/Hess geometry package is provided in Table A-l. Execution of this program 
will basically flow as follows: 


2 
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1. User will be prompted for name of preliminary geometry file (13 characters 
max.)- Input name of file which was created a described in Section A. 1.1. 

"Enter Preliminary Geometry File Name" 

2. Default values for input options to Halsey/Hess procedure will be reviewed on 
terminal. These values (refer to Table A-l) are as follows. 

"Default Values for Input to the Panel Generation Procedure Are:" 

NOPT = 1 
IMODE = 0 
NPTS = 1 
NSEG = 1 
NB = 0 
ITR = 0 
NW = 0 
INTS = 0 
NS = 0 
NALG2 = 0 
NALGB = 0 
NALG3 = o 
NALGW = 0 
NALGS = 0 

3. "Do you wish to review all program options and variables and/or only those 
selected by twe user." The us'T now has the option to review all of the program 
options and variables (including the above default options) or only those 
specified by the user. If user selects "NO", only those variables specified by 
user will be changed from the default value. If user selects "YES", then each 
variable and/or option will be defined and the user will be asked to enter a 
value. 

A. "YES" is entered by user. Each variable presented in Table A-l is defined 
and the user is prompted for a value. If no input is required for a 
particular variable due to a previously selected option, then that variable is 
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not reviewed. After all options are selected for a particular network (or 
component) then the options and their values are presented on the 
terminal. After all values are entered, the user is offered the opportunity 
to change any value by specifying the variable and component number as in 
(D) below. Enter "Q" if finished. 

B. "NO" is entered by user. With this answer all default values remain 

unchanged unless a variable including the component number is specified in 
the following format: VAR (I) = VAL where VAR is one of the input options 
or variables defined in Table A-l, I is a component number (if required), 
and VAL is the value desired for VAR. A printed listing of the variables in 
Table A-l is available if requested. Enter "Q" when finished. 

4. "Enter Input File Name (13 characters)". After all variables have been entered, 
the user is prompted for the name of the file to store the input variables for the 
Haisey/Hess geometry procedure. 

3. "Enter Output File Name (13 characters)" Enter here the name of the VAX file 
where the results from the Haisey/Hess geometry procedure will be stored. 

This file will contain the network definition to be used with the PAN AIR 
procedure and is the primary output file. 

6. "Enter Batch Output File Name (13 characters)" Enter here the file name 
where the input, results, and intermediate results from execution of the 
Haisey/Hess geometry procedure will be stored. This file is primarily suited to 
be batched to a printer for reviewing the input and results from the 
Halsey/Hess procedure. This will not be used in conjunction with PAN AIR and 
may be purged if it is not desired. 

After the above output files for the geometry package results are identified, control 
is shifted to a command file (ASSGN.COM) which makes the logical unit assignment for 
execution of the Halsey/Hess geometry procedure. Control is then shifted back to the 
Preprocessor Module Command File (PANEL.COM). The execution of the geometry 
procedure is then initiated with the "EXEC" command as described in the following 
section. 


The input file for the Halsey/Hess procedure may be generated in two ways without 
entering the Preprocessor Module Command File (PANEL.COM). The execution of the 
previously described program may be initiated by entering the VAX instruction: "RUN 
' MHESS". All of the preceeding discussion on input options and variables would then 
apply. 

The input file generated by this program (SMHESS.EXE) could also be generated in 
the VAX editor mode. The file generated in this manner should conform to the formats 
described in Table A-2. 

The recommended ordering of input coordinates is shown in Figure A-2. All points 
on the first N-line (including wake points which are entered last for each N-iine on a 
lifting component) are input consecutively, followed by all points on the second N-line, 
and continued in this manner until all N-lines for that c mponent are entered. The first 
N-line may be at either extreme of the component, but the choice determines the order of 
input of points along the N-lines. The order must be such that the negative of the cross 
product of the vector from one point on an N-line to the next point on the N-line with the 
vector from a point on an N-line to the corresponding point on the next N-line results in a 
vector which is directed to the exterior of the component. On a wing, this requirement is 
satisfied by ordering the N-iines from tip to root while ordering points on the N-lines from 
the trailing-edge along the lower surface to the leading-edge and back along the upper 
surface to the trailing-edge. On a fuselage, this requirement is satisfied by ordering the 
N-lines from front to back and the points on each N-line increasing counterclockwise 
(looking aft). 

The code developed for the program (SMHESS) to create an input file for the 
Halsey/Hess Procedure and an example input file are presented in Section A. 2. 2. 


A. 1.3 Execution of the Panel Generation Procedure (Command: EXEC) 

Once the input file described m Section A. 1.2 has been created, the geometry 
procedure may be run. If control has been transferred back to the Preprocessor Command 
File, this may be accomplished by answering the prompt "WHAT NOW" with the command 
"EXEC". The "INPT" command which initiates the running of the SMHESS.EXE program 
must be used before the "EXEC" command is used. The reason being that the assignment 
of the logical units are made during execution of the SMHESS.EXE program. 

A-8 


* 



Figure A -2 


Recommended Ordering of Points to Define a Wing 


If the user desires to run the geometry procedure without ertering the Preprocessor 
Command File (PANEL.COM), then the following steps must be taken. 

1. Generate input file as described in Section A. 1.2. 

2. Make assignment of logical units on VAX as follows: 

(i) ASSIGN FILE.DAT FOR005 (FILE.DAT is the input file created in (1) 
above) 

(ii) ASSIGN BATCH.PRT FOR006 (BATCH. PRT is the output file from the 
Halsey/Hess Procedure which is suitable to be batched to a pr*..ter) 

(iii) ASSIGN OUT.DAT FOR004 (OUT.DAT is the output file from the 
Halsey/Hess Procedure which contains the panel coordinate data to be 
used for PAN AIR input. 

(iv) ASSIGN SYSSOUTPUT FOR008 

The names of the above files may be selected to suit the user. 

3. The geometry package may now be run using the VAX command "RUN.GEOM". 


A.1.4 Graphics Package (Command: PLOT) 

From the Preprocessor Command File (PANEL.COM) the graphics package may be 
utilized using the "PLOT 1 command. A preliminary geometry file (Section A. 1.1), an 
output file from the Halsey/Hess Procedure (Section A. 1.3), or a PAN AIR input file may 
be plotted. The "PLOT" command results in the transfer of control to the program 
THRDPL (Three Dimensional Plots). 

The use - encounters the following prompts as illustrated ir. Figure A. 3 after using 
the "PLOT" command. 

(1) "Enter File Name". Enter file to be plotted. 
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(2) 'Is file a PAN AIR Deck": Enter "Yes" or"No". If "Yes" or "No" then the 
following prompts are encountered: 

(3) "Do You Know the Network Numbers?" If "Yes" to (3) then 

(3i) "Enter Number of Networks that You Wish to Plot". Enter number. 

(3ii) "Enter Network Numbers One At a time". Enter network networks. 

If "NO" was the answer to (3), then the following prompts are encountered. 

(3a) "Do You Want All Networks?" Enter "Yes" or "No". 

If answer is "Yes" then question (4) is next. If answer is "No" then each network 
title is displayed and a "Yes" or "No" answer is expected for each. 

(4) "Do You Want the Axis?: Enter "Yes or No". 

(5) "Do You Want a Plot Title?": Enter "Yes" or "No". 

If answer is "Yes" then the following prompts are encountered: 

(50 "Do You Want to Override the Default Plot Title?" (Default is the file title 
card) If "Yes" to (5i) then: 

(5ii) "Enter a Plot Title, Enter Return for No Title": Enter a Title. 

(6) A frontal view of the configuration is now plotted on the terminal. The 
interactive plot manipulation commands shown in Table A-3 are now 
available to move the configuration to the desired viewing perspective. The 
initial pivot point for rotating the configuration is set at (0,0,0) so it is 
desirable to use the "PIVT" command from Table A-3 to a point near the 
middle of the configuration. 

(7) Use "STOP" command to terminate the plotting sequence. 
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A.1.5 Program to Modify Selected Point?, of the Detailed Panelling Scheme 

(Command: MODD) 

During plottirg and checking of the detailed panelling scheme generated for the 
PAN AIR problem, sometimes it becomes necessary to edit or change selected 
coordinates. Editing is allowed during the plotting sequence (Section A. 1.4) by using the 
interactive plot manipulation command "CHNG" from Table A-3. Sometimes it is 
desirable to edit a selected few points while in the Preprocessor Command Module 
without entering the plot sequence. This capability is provided with the command 
"MODD" which can be executed from the Preprocessor Command Pile (PANEL.COM). 
After exercising the "MODD" command, the user is presented the following prompts: 

"Enter File Name to be Modified": User enters the desired file name. 

"Enter Point Number foi Changes": The points are assumed to be numbered 
beginning with the first point in the first network as 1~1 (i.e., 1-1, 1-2, 1-3..., 
2-1, 2~2, 2-3..., N-l, N-2, N-3....) where the first number is the network 
number and the second is the relative position of the point within that networks 
definition. During the plot seequence (Section A.5), these numbers may be 
displayed using the interactive manipulation command "NUMB". 

-Enter "Q" when the last point is changed. 

The code developed for the "MODD" command is presented in Section A. 2.3. The 
editing process may also be accomplished in the VAX editor mode without entering the 
Preprocessor Command Module. 


A.1.6 Program to Create a PAN AIR Input Problem (Command: PGEN) 

This command simply asks the user for the geometry file created by the Halsey/Hess 
procedure and adds the JCL and input records required for a PAN AIR problem. It should 
be noted that the user will be required to specify the type of boundary conditions, 
abutment specifications, etc. by entering the VAX editor mode. This program simply adds 
the required JCL and makes the PAN AIR program options that are required for this 
methodology. The correct positions for the specification of boundary conditions, 
abutments, etc, pre indicated. 
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Table A-l: 


DESCRIPTION OF INPUTS TO HALSEY/HESS 


GEOMETRY PROCEDURE (GEOM.EXE) 


DESCRIPTION OF INPUTS 


Variable 

NSEC 

NPTS 


NOPT 


NB(I) 
NALGB ( I ) 


Description 

Total number of components 

Format control for X,Y,Z, input coordinate data 


NPTS - 1 , 1 point per record. 

NPTS * 1, 2 points per record 
(not available) 

Note: NPTS automatically set 

equal to 1 for this application. 

Execution flag. 

NOPT < 2, panel isolated components only. 

NOPT 2, panel isolated components and 
calculate intersection curves. 

NOPT > 2, panel isolated components, 

calculate intersection curves, 
and repanel intersecting and 
intersected components. 

Specified number of on-body points 
per N-line on component I. 


Spacing algorithm for on-body points 
on N-lines for component I. 

NALGB = 0, input distribution, unaltered. 

NALGB ■ 1, input distribution, augmented. 

NALGB * 2, constant increments in aiv. length 

NALGB - 3, cosine distribution. 

NALGB = 4, curvature-dependent distribution. 

NALGB » 5, user-specified distribution. 
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(Table A-l Continued) 


Variable 

NW(I) 

NALGW(I) 


NS (I) 
NALGS(I) 


INTS(I) 


Description 

Specified number of wake points per N-line 
on component. I. 

Spacing algorithm for wake points on N- lines. 
(Values have same significance as values of 
NALGB , except that NALGW * j and NALGW - 4 
should not be used.) 

Specified number of N- lines on component I. 

Spacing algorithm for N-lines on component I. 

NALGS - 0, input distribution, unaltered. 

NALGS - 1, input distribution, augmented. 

NALGS - 2, constant increments. 

NALGS - 3, user-specified distribution. 

Index of component (if any) which component I 
intersects . 


NALG2(I) - Repaneling for intersecting components if I 

is an intersecting component. 

NALG2 “ 0, minimal repaneling. 

NALG2 = 1, full repaneling. 

NALG3(I) - Repaneling flag for intersected components 

if I is an intersected component. 

NALG3 * 0, no repaneling. 

NALG3 * 1, (a) Nonlifting components. 

Full repaneiing with an N-line 
passing through every point on 
intersection curve. 

(b) Lifting components. Full 
repaneling, but with gaps in 
the region of the intersection 
curve . 
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(Table A-l Continued) 


Variable 


IXFLAG(I) 


IMODE(I) 


COSX(I) 
COSY (I) 
COSZ(I) 


ITR(I) 


I 


Description 

NALG3 - 2, (a) Nonlifting components. 

Full repaneling with an N-line 
passing through every second 
point on the intersection curve. 

(b) Lifting corap 'nents. 

Full repaneling with additional 
nonlifting elements to fill the 
gaps around the intersection 
curve. 

Extra strip flag for component (I) . 

IXFLAG - 0, no extra strip. 

IXFLAG = 1, the first strip of the 

final coordinates is extra. 

EXFLAG 3, the last strip of the final 
coordinates is extra 


Planar-section/arc-length model flag for 
component I. 

IMCDE - 0, planar-section mode using 

default values of direction 
cosines of axes (1,0,0) for 
nonlifting components; (0,-1,0) 
fjr lifting components). 

IMODE = 1, planar-section mode using input 
values of direction cosines of 
axis . 

IMODE - 2, arc-length mode. 

X-direction cosine of the axis of component I. 


Y-direction cosine of the axis of component I 


Z-direction cosine of the axis of component I. 


NOTE: COSX(I), COSY(I), and COSZ(I) are 

required if IMODE (I) - 1. 


Component transformation flap. 

(The value indicates the number of 
transformations to be performed.) 
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(Table A-l Continued) 


Variable 

NSEG(I) 

SSB(J,I)J-1,NB(I) 

SSWfJ . I) , J=1 , NW(I) 
SSS(J.I) ,J=1,NS(I) 
IEND(J.I) ,J=1,NSEG(I) - 
ITR2 

TR(1) 


Description 

Number o.f segments into which M- lines are 
broken (Default = 1) . 

Specified arc lengths of on-body points on 
N- lines on component I. o.o < SSB > 1.0. 

NOTE: NB(I) total points per component 

only required if NALGB(I) = 5. 

Specified arc lengtns of wake points on 
N- lines on component I. 0.0 < SSW > 1.0. 

NOTE: NW ( I ) total points per component 

only required if NALGW(I) = 5. 

Specified distribution of N-lines on 
component I. 0.0 < 3SS > 1.0. 

NOTE : NS (I) total points per component 

only required if NALGS(I) = 3. 

Point numbers of the ends of the segments 
on M- lines on component I. 

NOTE : NS EG (I) total (max. = 5) per 

component only required if NSEG(I) > 1. 

Type of transformation to be applied to 
component I . 

XRT2 = 1, scaling 

ITR2 = 3, translation 

ITR3 = 3, rotation 

First transformation parameter: 

x multiplication factor if ITR2 = 1 

x translation if ITR2 = 2 

angle of rotation if ITR2 = 3 

(Positive clockwise, looking down 
axis away from origin) . 
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(Table A-l Continued) 


Variable 

TR(2) 


TR ( 3 ) 


TR(4) 


X 
Y 
Z 

STATUS 


Description 

Second transformation parameter: 

y multiplication factor if ITR2 = 1 

y translation if 1TR2 * 2 

x direction cosine of axis of rotation 

if HR 2 = 3 

Third transformation parameter: 

z multiplication factor if ITR2 = 1 

z translation if ITR2 = 2 

y direction cosine of axis of rotation 

if ITR2 = 3 

Fourth transformation parameter: 

Dummy if XTR2 = 1 or ITR2 * 2 
z direction cosine of axis of rotation 

if ITR2 = 3 

NOTE: The axis of rotation is assumed to 

pass through the origin. This input is 
required if ITR(I) P for any component I. 
A total of ITR(I) transformations are 
performed for each component I. 

X,Y,Z coordinates of a point. (All points 
input N-line by N-line, component by 
component . ) 

STATUS = 0 same N-line 
STATUS = 1 new N-line 
STATUS * 2 new component 

STATUS = 3 last point input (exception below) 

STATUS = 4 first point on wake 

STATUS = 5 point on wake and also last point 
input 


N ^ X 


(Table A-l Continued) 

Variable 

LABEL 


) 

STATUS \ 
LABEL / 


Description 

LABEL * 0 nonlifting component 
LABEL = 1 lifting component 

X.,Y,Z coordinates of the next point input. 
Same meaning as above. 


NOTE : Repeat records to input more 

points. If NPTS » 1, input only 1 
point per record (columns 1-32) . 


NOTE : The X,Y,Z coordinate data will be read 

from the preliminary geometry file created as 
described in Section A. 2. The status of each 
point will be added after each point in the 
format (3F 20.5, IX, 211). 
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TABLE A-2 FORMAT FOR THE HALJZY/HESS INPUT FILE 
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required unless ITR(I) > 0. Enter ITR(I) lines of the variables. 
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Table A. 3 Interactive Plot Manipulation Cor.unands 
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A.1 FORTRAN Codes Developed for Preprocessor Module 


This appendix contains codes developed specifically for the Preprocessor Module. 
The methods included in the Preprocessor Module were described in Section 4. A 
utilization on how to use this module was included in section A.l. The codes written in 
the VAX Fortran were separated into this section for ease of referral. 


A. 2.1 Code for PANEL.COM 


The following pages contain the code developed for the PANEL.COM procedure. 


ORIGINAL PAGE !3 

OF POOR QUALITY 

E' ANE L • COM 

SUPERVISE THE EXEUUIUIN Ut- I HE INIERAClIVE 
AERODYNAMIC PANELING PRUCEDEUKE 


! DEFINE ROUTINES AS FOREIGN UCL COMMANDS 

i 

{CREF IL ♦ -=* DRUG J LbHn I ELEY .PnNnlR JLREF 1L.EXE 
{ SMHESS ; -=SDRCO : L BHA I ELEY . PANAIR 3SMHESS .EXE 
{E‘LTT:- = $DRC0:LBHA I ELEY.PANA1R3PLUT.EXE 
SMODFY : --SDRC0 : CBHATELEY . PANALR JMUUE Y . EXE 
{GEOM : $LlRCO : L BHIATELEY . PANAIR JGE UN . E XE 

i 

' DETERMINE WHICH TERMINAL lb BEING UbED 


{LAB 101 

i 

{WRITE 
1 UR I TE 
I UR I TE 
{ WR I TE 
{WRITE 
{WRITE 
{WRI IE 
{WR I TE 


SYSSOUTPUI 
SYS SHUT PUT 

sysjuut phi 

SYSSOUTPN I 
SYSSUUT Pll I 
SYSfOUTPUl 
SYSIOUTPUT 
SYSSUUI PHI 


TERMINAL I YPE IDENTIFIER CONES’ 


1 - 


3 - 


VTIOO* 
TEKTRONIX 
1 EKT RUN IX 
IEKTRUN1X 
TEMRUNIX 


401 - 0 ' 
4014’ 
4010* 
4027 ■ 


{INQUIRE NTERM ’ENTER TERMINAL TYPE 
{ASSIGN SYS $ INPUT FOROOfj 
{ASS T ON SYSSOUTPI IT HIR006 
{LAB50 : 

i 


' SELECT ROUTINE 1 0 FXECUIE 

i 


{INQUIRE EXEC * UHAT NOU^’ 

{IF EXEC. NES. ’CEIL’ .AND. EXEC . NES . ’ PL UT - 
.AND. EXEC. NES. ’ INPV .AND. EXEC . NES .’ EXEL ’ - 
.AND. EXEC. NES. •MODD ’ .AND. EXEC . NES . ’ LCUT ’ - 
.AND. EXEC .NES. ’HCPY VnND. EXEC . NES . * PGEN ’ - 
.AND. EXEC. NES. ’HELP’ THEN GOTO LAPOO 
{GOTO 'EXEC' 

{GOTO LAB50 


{HELP: 


LIST AVAILABLE COMMANDS 


i 


{WRITE 

SYSVOUTPIIT 

• 

■ 

{WRITE 

SYS*UUI PHI 

• 

HCF'Y - 

‘WRITE 

SYS{OUTPII ( 

• 

PGEN - 

IWRITE 

SYStUUTPUl 

• 

CFIL - 

{WRITE 

SYSfOU 1 PUT 

• 

EXEC - 

{WRITE 

SYSKHJl PUT 

■ 

INPT - 

{WRITE 

SYSJOUT PUT 

• 

MODD - 

{WRITE 

SYS {OUT Fil l 

■ 

PLOT - 

{WRITE 

SYS {OUTPUT 

• 

LOU i - 

{WRITE 

SYS {OUT PUT 

• 

HELP - 


RUN RAHM UN PLOT FILE* 

CP.EAlfc A PANA1F. INPUT FILE* 

CREAIE PRELIMINARY GEOMETRY FILE* 
EXECUTE PANEL GENERATION PRUCE HE URE ’ 
GENERA IF INPUT FILE TO *ANEI GENE RAT 
MODIFY GEOMETRY FTLES* 

PLOT GEOMETRY F TI ES’ 

LOGOUT* 

LIST AVAILABLE COMMANDS* 


ION PROCE 
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IGOTO LnHViO 

i 

ihcpy: 

I PLOT 

IGOTO LABSO 

i 

icfil: 

i 

ISET NOON 

$ ASS I GN/USER-MUllL SYSICOMMAND : 

ICREF IL ‘ NTEFIM ' 

ISET ON 
IGOTO LnBOO 

i 

iinpt: 

i 

ISET NOON 

IASS I GN/USER-MUDE SYSICOMMAND : SYStiNPUIt 
ISMHESS 'NIERN' 

*IFL-ISTATUS-%X1 OOOOOO 


IIF 

IFL .LUS. 

1 

THEN 

GUI 0 

COM3 

'GET GEOMETRY 

FILbS 

IIF 

IFL .EOS. 

n 

THEN 

GU I 0 

CONS 

'CREATE PROBLEM FILE FOR S-H RIJN 

IIF 

IFL .EOS. 

o 

THEN 

GOTO 

COM3 

•ABUR1 SMHESS 

F'ROCEDEUPb 


IGOTO COM3 
ICONS: 

i 

i CREATE PROBLEM FILE 

i 

IF* 1-3 

IGOTO LAB50 
IC0N3: 

IP1=IFL 
IGOTO LABS0 

I 

imodd: 

i 

ISET NOON 

tASSIGN/USER_Ml)liL SYSICOMMAND: SYSIJNPtli: 

IMODFY ' NTERM ' 

IP1-$ST ATUS-%X 10000000 
ISET ON 

I IF PI .EOS. 0 THEN GU I U L GUI 'EXIT WISH 

IGOTO LABGO 

j 

iplot: 

'IldRITE SYS 1 IOU I PH I • PUJT PACKAGE NOT CURRENILY AVAIL AHLL ON NASA MACH I 
' IGOTO LABbO 

i 

IASSIGP SYSlINPtJf HIROOb 
IASSIGN SYS IOUTFUT F0R006 
I IF NTERM .EOS. 1 THEN GOTO LAHHO 
ISET NOON 

iassign/user-mohl sysicommand: sysijnplii: 

IPLTT 'NTERM' 1 • PI U I UFUMtlRY FILES 

ip i-^istatus-:::< looooooo 

ISET ON 

I IF PI .EOS. 0 THEN GUI 0 LOUT • b X I I WISH 


0R1Gir4AL |-« A. - ' 
OF POOH QUALfP: 


SYSIINPU I : 
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ORIGINAL FAGS 1^ 

IGOTO LAbSO OF TOOR yUALrTY 

TLAD80: 

TWRITE SYSTOUTF'UT ‘NO PLOTTING ON A UT100* 

TGOTO LABGO 
! 

texec: 

TWRITE 3YST0UTPUT ’ IF INF’ I COMMAND HAS BEEN EXECUTED JUS I PRIOR* 

TWRITE SYSTOUTF’UT * 10 USING THIS COMMAND > I HLN I HE PROPER FILE * 
TWRITE SYS TUU1 PUT * ASSIGNMENTS HA'Jfc bttN MAUL. * 

TWRITE SYSTUU I PU I * 

TWRITE SYS TOUTPUT * IF NO! . I HLN THE ASSIGNMENTS HAUL IU BE MADE * 
TWRITE SYSTUU I PU1 * NOU BY ANSWERING NO ( 1 = NU ) TO THE FOLLOWING * 
TWRITE SYSTUUTPUT * QUESTION . * 

TWRITE SYSTUUIF’UI * 

TWRITE SYSTOUT PU1 * HAS INPT COMMAND BEEN EXECUTED JUS1 PRIOR 10 * 
TWRITE SYSTUUTPUT * THIS COMMAND ? * 

TWRITE SYSTOUT PUT * 

T INQUIRE IASSGN * ENIEK 0 FOR YES OR 1 FOR NO* 

TIF IASSGN .EOS. 0 I HEN GO I U LABoS 

$ INQUIRE U1FILE1 * NAME OF OUIPIJT FILE FOR PANEL GEOMETRY TO BE USED IN 
TASSIGN ' 0TFILE1 ' FUR004 

TINQUIRE UTFILE2 * OUTFItE FILt FUR BAICH PRINTING OF GE0ME1 RY 
TASSIGN ' 0TFILE2 ' FUR006 

TINQUIRE 1NF1LE * FILE NAME FUR INPUT 10 GEOMETRY PACKAGE ?■ 

TASSIGN ' INF ILE ' FOR005 
TASSIGN SYST0U1PUI FOROOS 
TLAB65 t 
TRUN GEOM 
TGOTO LAB50 


TPGENJ 

TASS IGN/USER_MODE SYS TCUMMAND : SYSTlNPUi: 

TASSIGN SYS T INPUT FOROOS 

TASSIGN SYSTOUT PU I FOROOo 

TRUN PAF1LE 

TGOTO LABGO 

i 

TLOur : 

i 

! LUGOUT PROCEDURE 

I 

TIF N TERM . EQS. 2 THEN TKCLR 
! DELETE FILES TO CLEAN UP 

i 

! TLOGOUT 
TEXIT 
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A.2.2 Code For Program SMHESS 


The f lowing pages contain the code developed for the SMHESS program. 


r> n n o. n n n cd n n n n n r. n n n n n n n n n 


original i rr: n 

OF POOR Q : J*LfTY 

C F'RGbRAM SMHESS 

C 

PROGRAM SMHESS GENFRAlEb INPUl FllR I HF HAL.SF Y/HESS 
GEOMETRY PANELING PRULEDEURE 


PROGRAMMMEP UN 24 MARLH iyB2 M.L.U1I1E 

ADDITIONS MADE UN HAY / lyfclJ H. U. MANN 


Li I HENS I ON 
DIMENSION 

1 

o 

•b 

DIMENblUN 

DIMENblUN 

DIMENSION 


I NE1 ( o » 60 ) »LUURDt400»6»60) 

NB(dO> . NALbB ( 60 ) »NW160) »NALbUloO> » Nb ( 60 ) »NALlib(oO » » 
JALG2 t 60 ) » NALbb ( 60 ) » lXFLAbv60) * 1 MIJLiF. ( d 0 ) » i I R l 60) t 
INTS ( 60 ) 

bSb(606*60) tSSU(S06r60) rSSS(606»60) 

LUSX(60) »LUSY(60> >UUSZ<60) 

N S E b ( b ) » I E N Ll ( b » 6 0 ) 


DIMENSION I TR2 (j»oO) » I R 1 l b » 60 ) » lR2(b»60) » I Rb ( b » 60 ) ?lF4(b»oO) 


CHARACTER*20 LMU » J NPU'I *4. I I I LE*dO » GNAME* 1 6 • INF LLE*1 6»IJU I PU I *4V» 
lOTFILEl*lirUIP 1LE2*16»NI 1 I ( 60 )*S0 r L 1NE*B0 


LUbiCnL*l EX 

IN .EGER ST AT (400? 2 ’60) 

GET TERMINAL 1 YPfc 

SIAIUS-LIBSGEI _F UKE IbN l iNPUl » »N) 

KEADt INPUT »800) NIERM 
FORMAT (II) 

READ PRELIMINARY GEUMEIRY r - ILL NAME 

b WRITE L6» ^ > ' ENIER PRELIMINARY GEUMEIRY FILE NAME ao LHARb)' 
IF v NTERM . b U . o ) UR1IE(6»*)' 

IF < NTERM • EU • 4 ) URIIE<6»ybO) 

KEAL ,( b»dlO) GNAME 
FURMAI (A) 


TEST FUR VALiU FILE NAME 

IF ( GNAME ( 1 : 1 ) .EU. IT) UU IU 400 
INQUIRED lLE-bNAME»LXibl-EX) 

IF t .NU1 .EX) I HEN 

WRITELof*)’ FILE DUES NU I EX Lb) 

GO TO 5 
END LF 
L) 

>; READ INPUT FRUM PRELIMINARY GEUMEIRY FILE 

C 

OPEN < UNI T - 1 » F* 1 LE-bNAME » b I A I US- - ULU ) 

READ t 1 t yob ) Il’.LE 
^ob FUKMnTlAod) 

DU Is — 1 f oO 
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r. r. n r. r. *- o n 


KEAD( 1 »V'oG»ENU-V ) 1NEI <3»K) t 1NEI < 2 r K > t N I 1 I \ K ) 
iNtT(lrK>-K 

NNET-K Qn, 

V5b P0RMAT<2I4»A.J0> PAdT ft 

URITE(6»4> INE l< 3»K> » 1NEI(2»K) ^ POOR QUALITY 

LENU-INET<2»K>*1NEI (3»K> 

DU J-l rLk.NO 

READ ( 1 » VoO ) CUUKU ( Jr 1 r K ) » CUUKU ( J r 2 r K ) » CUUKU ( J r 6 . K ) » Si A I ( Jr 1 »K) r 
1 STAT(Jr2rK) 

V60 FORMAT (3F20.Gr lXrilril) 

END DO 
END DO 

V CLOSE (UN IT -1 ) 

NSEC-NNE I 
C 

INI TlniLiZE UEPAULI VALUES P UK UPIIUNS AND VARIABLES 


NOP 1 - 1 
NP I S-l 

DO J J- 1 t NSEC 
NB( JJ)-0 
NW ( J J ) -0 
NS ( J J ) -0 
NALGB ( J J > -0 
NALGW ( J J ) -0 
NALGS ( J J ) -0 
INODE < J J > -0 
NSEG ( JJ > -1 
1 I K ( J J ) -0 

i n rs i jj > -o 

NALG2 ( JJ ) >0 
NALG3( JJ>=0 
END DO 


WK1IE UEKnULl VALUES 10 I EKMINAL 


WK 1 I E ( 6 » 4 ) ' THE UEPAULI VALUES P UK 1 NPU I IU I HE PANEL GENERA II UN 
WRITE (or 4) ' PKUCEDUKE ARE I 


WK I TE ( 6 » I) 
WRITE(6r4’ 
WR I TE ( 6 r 4 ) 
WRJTE(6»4> ' 
WRITE ( 6 r 4 ) ' 
WRITE ( 6 » 4 ) ' 
WRI TE ( 6 » 4 ) ' 
WRI T E ( 6 r 4 ) ' 
WR I TE ( 6 1 4 ) ' 
WR I TE ( 6 r 4 ) ' 
WR I TE ( A » 4 ' ' 
WR I TE ( 6 » 4 ) ' 
WR I TE < A » 4 ) • 
WK I TE ( A * 4 ) 
WK I TE(A*4) ' 
WK I TE v A » 4 ) ' 
WR I TE ( A t 4 ) 


NOP I - 2 I PANEL ISULAIED LUMPUNEN I S UNLY 
NB ( I ) - 0 : NUNBEK UP UN-BUUY PUlNlS PER N-LiNE 
UN CUMPIINENI l 

NALUB ( 1 ) — 0 : SPACING ALGUKllHM P UK (IN-BUDY PUlNlS' 
UN N-LINES PUR LUMPUNEN I I - 
I NPU I UISIKIBUIIUN » UNALIERED 
NW(i>- 0 I NUNBEK UP WnKk PUlNis PEP N-LINE UN 
CUMPIJNEN I 1 • 

NALliU I I > - 0 : SPACING Al.GURi I HN P UK WAKE PUlNlS ' 
PEK N-LiNE PI IK CUMPIINENI I - 
1NPUI UISIKIBUIIUN » UNALIERED 
NS(D- 0 5 SPtCIPlED NUNHPR UP N- L1NPS UN LUMP, i 
NALGS ( I ) = 0 J SPACING ALliUKllHM P UK N-LINPS UN * 
CUMPIINENI I - 

1NPUI UISIK1 HlirillN r UNALIERED 
INIS(I)- 0 : LUMPUNEN I DUES NO I INIERSfcCI ANU I H‘ r 
LUMP! INfc N I 


A-3U 


o cj cj o cj •_) 


WRI TE!A»*) • 
WR i TE ! 6 r 4 ) ' 
READ!5»*> 
WRITE! Ar*) ' 
WRITE ! A » * ) ' 
WRITE (of*) ' 
WRITE ( 6 r 40 ' 


ORIGINAL PACtl 
OF POOR QUALfTY 

PRESS * RE I URN * IU CUNIINUE' 

NALG2 ( 1 ) - 0 : MINIMAL REPnNELiNb ' 

NALbb ( i ) - 0 J NU REPANEL I Nb ' 

1MUUL ( I ) - 0 J PLANAR- SECT I UN MUUE USINb UEFAULI ' 
VALUES UF DIRECT 1UN COSINES ' 


WRITE ! A » # ) ' II RID- 0 l NO COMPONENT I RANSKIRMA I IUNS ' 

WRITE ( 6 » HO ' NSEb ! I ) = 1 J NUMBER UF SEGMENTS INIU WHICH M-L1NES 
WRITE!6»*)' ARE BROKEN * 

WRITE ! A » # ) ' 


USER HAS OPFIUN 10 REVIEW ALL PRUORAM IJPliLINS ANLl VARIABLES ANU/ UK 
ONL Y THUSE SELECT ELI BY I HE USER 


WRi TE!A»*> ' DU YOU WISH IU REVIEW 1NPUI 0PI1UNS AND VARIABLES FUR' 
WRITE! 6* K> • ALL CUMPUNEN 1 S ! YES UR NU ). ' 

WRI TE ! A r $ ) ' 

WRiTE!A»*J'iF YOU SELEC I ( NU ) > YUU WILL HAVE I HE UPPUKlUNilY ' 
WRITE ! A » * ) 'TO CHANbE ANY UEFAULI VALUES BY SPEC1F1NU I Hfc ■ 

WRITE! A»*> 'PARAMETER ANU CUMPUNEN! IU BE CHANliEU » UNLY I HUSE ' 

WRITE!A»*) 'SPECIFIED BY I HE USER WILL BE ALIENED . 

WRITE! A.* ) 

WRITE! 6» * ) ' IF YUU SELECT ! YES ) * YUU WILL HAVE THE UPPURIUNIIY' 
WRITE ! 6 ? * ) ' TU REVIEW ANU SELECI THE INPUT VARIABLES ANU UPI1UNS' 
WRITE! A»*) 'FUR EACH CUMPUNEN I ? THEN I HE USER WILL HAVE 1 HE ' 
WRITE!A.*) 'UPPURIUNIIY 1 U CHANUE ANY OPTION UR VARIABLE SELECTED' 
WRITE ! A » # ) 'AS ABOVE' 

WRITE!6»*)' 

WRITE ! A » * ) ' ENTER Y FUR ! YES ) UR N FUR ! NU ) . ' 

IF ! NTERM.EU.S) URI1E(6»*)' 

CALL YESNO(NY) 

IF ! NY ♦ EQ ♦ 0 ) GU IU 20 
C 
C 

C INPUT CONTROL ANU REPANEL I NU OPIIONS 

C 
C 
C 

WRITE! o » * ) ' 

WRITE! Sr*) ' 

WRITE ! 6 » * ) ' 

WRITE! A » * ) ' 

WRITE ! A » * ) ’ 

WRi TE ! A f * ) ' 

WRI TE ! A . * ) ’ 

IF! NT ERM . EU . A) WRITERS.*)' 

READ!5»*) NUPT 
DO II-l »NSEC 

/OU FORMAT!' COMPIJNEN I NU. ‘»I2»UXfAA0) 

WRITE! A » * ) ' 

WR i TE! A » * ) 

WRI TE ! A f * ) ' 

WR 1 T E ! 6 » l ) 

WRITE!A» 705) tllvNIlT (ID 


UNLY (UEFAULI) 
AND CALCULAlE 


NUP I < 2 » PANEL 1SULAIEU COMPUNENT S 
NOP I - 2 » PANEL ISULAIEU CUMPUNEN I S 
INTERSECTION CURVES' 

NUP I > 2 * PANEL ISULAIEU CUMPUNEN IS t CALCULAlE 

IN I ERSECT iUN CURVES » ANU REPANEL ' 

IN I ERSECI 1NU ANU INIERSECIEU CUMPUNEN IS 
ENIER AN INI CROCK VALUE FUR NUP I . IE. 1. 2? UK j' 
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ORIGINAL Vf 'l r - 
write ( 6 * $ ) ' ' OF POOR Ql/ALfTY 

UKITEio* *) * ENTER INIERUER VALUE FUR NB<1> : SREL1F1EU NUMBER UF' 
URITEtbt*) UN-BUUY RUIN IS RER N-Lihc UN LUMRUNEN I i * 
IFlNTERM.EU.i) WR1IE(6»*)' 

READ'S**) NB (II) 

WRi TE<6»*> ENIER INIERUER VALUE !-UR NALUB ( l ) : SRAL1NU ALUURi I HM ' 
WRITE( 6»# ) 'FUR UN-BUUY POINTS RER N-LINE UN LUMRUNEN I 1 ' 

WRITE l 6 » * ) ' 

WRi TE(6»*) ’ NALUB » 0 r 1NRUI UiSIRlBUliUN t UNALIEREU (UEFAULi)' 
WRI TE ( 6 f * ) ' NALUB - 1 » INRL'I UiSIRlBUliUN f AUUMEN I EU * 

WRITE(6»¥) 'NALUB - 2 r LUNS I AN I 1NLREMEN I S IN ARC LENU I H ' 
WRITETAf*) 'NALUB - 3 » LUS1NE UiSIRlBUliUN • 

WRITETSf#) 'NALUB - 4 » LURVA I URE-UEPENUEN I U1STR1BUI1UN • 
WRITE16f*> NALUB - b f USER-SREL1I- 1EU UiSIRlBUliUN * 

WRITE ( 6 f * ) ' ENIER NALUB ( 1 ) 

IFCNTERM.E0.3) URITE(6»*>' 

READ<5f*) NALUB (11) 

WRITE(6t*)' 

WRirEl6f») 'ENTER A 1NIEUER VALUE l-UR NWti) : SPEL1F1EU NUMBER UF 
WRITE16 f*) * WAKE POINTS PER N-LINE UN LUMRUNEN I 1 • 

IF (NTERM«EU.3) WR1TE(6»*>' 

READ (5» # ) NW (II) 

UKITEtor*) ENIER A 1NIEGER VALUE FUR MALUW(i) : SRAL1NU ALUURilHM 
WRITEC6**) FUR WAKE RUiNIS UN N-LiNE * 

WRITE(6f*>' 

WRi TE ( 6 f * ) ' NALUU - 0 » INPUT UiSIRlBUliUN » UNALIEREU T UEF AUL I ) ’ 

WRITE ( 6 » * ) ' NALUU ^ 1 t 1NRU1 UiSIRlBUliUN » AUUMEN I EU ' 

WRI TE ( 6 f X ) ' NALUU - 2 f LUNSIANI 1NLREMEN IS IN ARL LENU I H * 

WRITE(Af*)' 

URlTE(6f*)' ENTER NALUU 

IF l N TERM.EQ.3 ) WRI IE ( 6 f S ) ' 

READ < 5 f * ) NALUU Til) 

WRi TE 1 6 f * ) ' 

WRi !E<6»*) ' ENIER A IN TRUER VALUE FUR NS(1) • SRLL1F1EU NUMBER UF 
WRITE (6f #> 'N-LINRS UN LUMRUNEN I 1 1 
1F(N1 ERM.EU.3) WRIIETAf*)’ 

READ 1 b f # ) NS (11) 

WR1IE(6f*)' 

WR 1 1 E ( 6 f * ) ' EN I ER A iNIRURR VALUE FUR NALUS(i) l SRAL1NU ALUURilHM' 
WRIIE(6 f*) 'FUR N-LiNES UN LUMRUNEN! I ' 

UR I 1 E ( 6 t $ ) 

URilEidf*)' NALUS - 0 » l'YUI UiSIRlBUliUN f UNALIEREU vUEFAULl)' 

WRITE(6»<) ' NALUS - 1 f 1NRUI UiSIRlBUliUN » AUUMEN I EU ' 

WRITE ( 6 f £ ) ' NALUS - 2 f LUNSIANI INLRRMRNlS IN ARL LENU I FI ' 

WRITE ( 6 f ! ) ' NALUS - 3 f USER-SREL1F 1EU UiSIRlBUliUN ' 

WR 1 TE io>l) ' 

WRiTEioF*)' ENIER NALUS 

IF i N TERM *EQ . 3 ) URl IRio?!')' 

READ ( b f * ) NALUS (11) 

WRi TE < 6 f * ) ' 

WRITEvAf*) 'ENTER A INlEGER VALUE FUR INIS(l) : 1NUEX UF THE' 
WRITE(of*) 'COMPONENT (IF ANY) WH1LH LUMRUNEN I i 1NIERSEL1S ' 

WRITE (of#) EN TER 0 IF NONE ' 

IF (NTERM.EU.3) WRMEvof*)' 

READ (Of#) INTSdl) 

WR I TE ( 6 f # ) 

WRITE < 6 f # ) ' EN I ER A INIEUER VALUE FUR NnLU2(l) I REPANELlNU FLAU' 



1NIERSECT ING 
NALG2 ■* 0 » 
NALG2 - 1 » 


ENTER NALG2 
URllE(6r»)' 


WRITE(6»*) 'HUH 
WRITE ( 6 » TO ' 

WRITE ( 6 » TO ' 

WRirE(6»*) ' 

WRITE ( 6 » TO ' 

IF (NTERM.EQ.3) 

READ ( 5 » TO NALG2(1I) 

WRITE ( 6 » TO ' 

WRITE (6 » TO ' ENT ER A INTEGER 
WRITE(6»TO 'FUR INTERSECTED 
WRITE(o»TO' 

NALG3 
NALGi 


ORIGINAL PIC': L, 
OF POOR QUALITY 

CUMPUNENI S ONLY ' 

MINIMAL REPANELING (DEFAULI) 
HULL REPANELING ' 


VALUE FUR NALG3 ( 1 ) 
COMPONENTS UNLY ' 


REHANELING FLAG 


= 0 

= 1 


NALG3 - 2 f (A) 


(b) 


WHI TE(6»TO 
WRITE(6»TO 
WRITE(6>TO 
WRITE(6fTO 
WRITE ( 6 f % ) 

WHITE ( 6 > TO 
WRITE ( 6 » * ) 

WRITE ( 6 » TO 
WRITE ( 6 r TO 
WRITE ( 6 » TO 
WRITE ( 6 » * ) 

WRITE ( 6 * * ) 

WRITE ( 6 » TO 
WRITE ( 6 » TO ' 

WRITE ( 6 » TO ' 

WRITE ( 6 » TO ' 

WRITE(6>TO' 

WRITE ( 6 r TO ' EN I ER 

IF(NTERM.EU.S) WRlTE(6»TO' 
READ ( 5> TO NALG3 < 1 1 ) 

WRITE <6»t>' 

WRITE ( 6 » TO ' EN I ER A IN I EGER 
WRITE<6rTO 'FUR COMPONENT I 
WRITE ( 6 » TO ' 

IXFLAb 
IXFLAG 


NU HERANELINb (DEFAULI) ' 

( A ) NUNLiFlINb COMPONENTS : ' 

HULL HEHnNELINb WITH AN N-LINE HASS1NU 
1HRUUGH EVERY RUIN I UN lNlEHSELIlUN 1 
CURVE ' 

(B) LIFTING COMPONENTS J ' 

HULL HEPANLLINb EU I WITH UAH’S IN 1 HE ' 
REG1UN OF THE INTERSECT 1UN CURVE' 
NUNLIFTING CUMHUNENIS l ' 

FULL HEHnNELINb WITH AN N-LINE f r.SSING 
THHUUbH EVERY SECUND HUlNi UN I HE ' 
INTERSECT 1UN CURVE ' 

LIFTING CUMHUNENIS : ' 

HULL HERANELINb WITH AUDI I IUNAL NUN- ' 
LIFTING ELEMENTS lU FILL THE GAPS' 
ARUUND THE INTERSECT IUN CURVE ' 


NALG3 


VALUE FUR IXFLAb(l) 


EXTRA STRIP FLAG 


- 0 
- 1 


IXFLnG — S » 


WRITE ( 6 » TO 
WRITE ( 6 » TO 
WRITE ( 6 » TO 
WRirE<6>*) 

WRITE ( 6 » TO 
WRITE ( 6» TO ' 

WR I IE ( 6 » TO ' 

IF(NTERM.EU.o) WRIT E ( 6 * TO ' 
READ ( 5 » TO IXFLAbdl) 

WR I TE ( 6 r TO ' 

WRITE(6*TO 'ENTER A INTEGER 
WRlTE(6rTO ' 

WRITE ( 6 » TO ' 

WRITE ( 6 r TO 
WRITE ( 6 * TO 
WRITE ( 6 » TO 
WRITE(6»TO 
WRITE ( 6 r TO 
WRITE(6»TO 
WR I TE ( 6 » TO 
WRITE ( 6 * TO 
WR I TE ( 6 * TO 


NU EXTRA 
THE FIRST 
IS EXTRA 
I HE LAST 
IS EXTRA 


STRIP (DEFAULI > ' 
STRIP OF THE FINAL 


CUURDINAI ES 


STRIP UF THE FINAL CUURDlNAlES 


IMUDE 0 » 


1MUDE - 1 » 


IMUDE ■» 2 » 


ENTER IXFLAb 


VALUE FUR I MODE ( I ) J PLANAR SECT IUN / 
ARC-LENGTH 1NU1CA I OR 

PLANAR SECTION MODE USING DEFAULI ' 
DIRECT IUN CUSINES UF AXIS (1»0»0) FUR 
NUNLIFTING COMPONENTS t (0»-l»0) FUR ' 
LIFTING CUMHUNENIS (DEFAULI) ' 

PLANAR SECTION MUUE USING INPUT VALUES 
UF DIRECT IUN CUSINES OF AXIS ' 

ARC LENGTH MODE ' 


ENTER IMUDE 
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OBKtfKA! PAC? -- 
OF POOR QUAirn* 


IF(NTERM.EU.3> WR1IE(6f*)' 


READ(5f*) IMOUE(U) 

WRITE (6 f # ) ' 

WRITE(6f*)' ENIER AN INTEGER VALUE F UR llR(l) l CUMPUNENT ' 
WRITE ( 6 f # ) ' I RANSFURMA I I UN F LAU • ' 

WRITE(6f*>' 


WRITE(6f*>' l I HE VALUE INDLCAIES THE NUMBER OF TRANSF URMAT 1UNS ' 
WRI TE ( 6 f * ) ' 10 BE PERI- URMED - UE’‘MJL1 VALUE = 0 ' 

WRITE ( 6 f * ) ' 

WRITE(6f*)' ENTER HR 

IF(NTERM.EU.o) WR1TE(6 f*) 

READ(5f#) ITR(Il) 


WHITE ( 6 f #) ' 

WRI TE ( 6 f * ) ' ENTER AN INTEGER VALUE FUR NSEG(l) J NUMBER UF ' 
WRITECof*)' SEGMENTS INI U WHICH M-LINES ARE broken • 

WRITE(of*>' ( UEFAUL 1=1)' 

WRITE(6f*)' 

WRITE(6f*)' ENTER NiwU ' 

IF ( N TERM . EQ . 3 ) WR1TE(6f*)' 

READ ( 5 f # ) NSEGC11) 

WRI TE ( 6 f # ) ' 

WR1TE(6f*)' 

WR1TE(Af*>' 

WRI TE ( 6 f * ) ' 

WRITE ( 6 f 707 ) IIfNTIT(II) 

70 7 FORMAT (' OPTIONS FUR CUMPUNEN I NU. ' f 12 f S»X f A60 ) 

708 FORMAT < ' NB= ' f *3f'2Xf 'NALUB=' f12f2Xf ' NW- ' f12f2Xf ' NALlsW- ' f!2) 

WRITE 1 6 f < ) ' 

WR I TE ( 6 f 708 ) N d ( 1 1 ) f NALUB ( 1 1 ) f NU ( 1 1 ) f N ALU W (II) 

70V FORMAT ( ' NS=' f13f2Xf 'NALUS=' f 12 f 2X f ' IN TS= ' f 12 f 2X f ' NALU2- ' f12) 
WRITE(6f*)' 

WRI TE ( 6 f 709 ) NS ( 1 1 ) f NALUS (11)fINIS(11)f NALU2 (11) 

710 FORMAT ( ' NALG3=' f 12f2Xf ' 1XFLAU-' f I2f2Xf ' IMUUE-' f 12) 

WRITE ( 6 f * ) ' 

WRITE (6f 710) NALU3 (11) f IXFLAbdl ) f 1M0DE( II ) 

719 FORMAT (' ITP^' f I2f2Xf 'NSEU-'- f 12) 

WRITE ( 6 f ♦ ) ' 

WRI TE ( 6 » 719 ) 1 T R ( 1 1 ) f NSEU (II) 

WRITE ( 6 f TO ' 

END DU 

DO 11=1 f NSEC 
IF(NALGB( II ) .EU.li) THEN 
WRITE ( 6 f $ ) ' 

WRITE(of*>' 

WRITE ( 6 fTO 'AUDIT 1UNAL 1NPUI REUU1RED FUR t' 

933 FORMAT (' CUMPUNEN I NU . f12fUXfA) 

WR I TE ( 6 f 933 ) HfNTIT(II) 

WRITE(of*)' 

WRI TE ( 6 f * ) ' EN1ER NB ( 1 ) VALUES UF SSB(JfI) f J-1»NB(1> ' 
WRITE(6f*)' SSB : SPECIFIED ARC LENU I HS UF UN BUDY POINTS UN' 

WRITE ( 6 f ♦ ) ' N-LINES UN COMPONENT 1 ( 0*0 - SSB - 1.0 )' 

WRITE (of*)' 

DO JJ=1fNB(II) 

WR1TE(6f*)' 

WR 1 TE ( 6 f 71 1 ) IIfJJ 

711 FORMAT (' ENIER VALUE UF SSB FUR CUMPUNEN I NU. ' f 12 f 2X f * PU1N I NU. f 
1 12) 
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ORlQiKAL P/ - - -•-! 
OF POOH QLALfTY 


1FKN1 LKM.EU.3) WRilblo.*)' 

RbAUtb»#) bbbtJJfii) 

END UU 
END iF 

1 K(NALUU(II> .EU.U/ I HtN 
WKi 1 b < 6 1 * ) ’ 

WRilbi6>*) 'ADDITIONAL iNKU I KbUUiKbD F UK K 
WRITE(6>V33) IlfNIITlll) 

WKilEtdf#)' 

WKi Ft <6»*) ' ENIER HU(1) OALUbb UF bbWTJfiJ » J-lfNU(l) ' 

WR. r TE t 6 » * ) ' saw : bKECiFlbD ARC LENli I Hb UF WAKE POINTS UN ' 

URf.TE(6»*)’ N-L1NES UN CUMKUNbNI I T 0.0 - SSW - 1.0 >' 

OU JJ-1'NUU11) 

WKi I E V 6 r # ) ' 

WKi lb<of 717) iifJJ 

71/ FORM A I' C ' bNIbR OALUb UF bbW FUR CUMKUNbN I NU . ' t 12 t 2X » ' KU1NI NU.' 
1 12) 

IF (NTERM.EU. 3 ) UKilbTAr*)' 

RbADt5»#) SSW(JJ»ii) 
bNU DU 


332 


333 


bND IF 

IF ( NALUS ( 1 1 ) • EU . 3 > THEN 
WR 1 ft i 6 » # ) ' 


UKilblof#)' ADbiliUNAL iNF'UI RbUUiRbU FUR ; 
FORMAK' CUMKUNbNI NU. '»12»1SX»A) 

WRi TE ( 6 » 332 ) li*NUI(li> 

WRITE ( 6 » * ) * 

bNIbR NSCi) OALUbb UF SbS(Jfl) 
i j = i ? Nbii) ) • 


WKi IEC6» *> 

WKi TE ( 6 r * ) ' 
WRITE ( 6 f & ) ' 
WRi lb C6»*) ' 

WRI TEl6»*) ' 
WRITElA.*) ' 

DU JJ-1 » NS (II) 


bbbJ bKbCIF ibb DiblRlbUllUN UF N-LiNbb' 

UN CUMKUNbNI I C 0.0 - bbb - 1.0 ).’ 


WRi IE ( 6 t 4 ) ' 

WKi TE < 6 » 333 ) IIfJJ 

FORMAT (' bNIbR OALUb FUR bbb FUR CUMKUNbNI NU. »i2> 
: ' POINT NU. » 1 2 ) 


IF t N TERM « £0 . 3 ) WKilbi6»£)' 

READ(5»#) SSS i J J r 1 1 ) 

END DO 
END IF 

IF( I MODE ( II ) «EQ. 1 ) I HEN 
WR i I E i 6 » 4 ) ' 

WRi lb<o»*)' ADDiliUNAL iNKUl RbUUiRbD FUR ;' 
WRi Tb C 6 » y33 ) ii»NHKli) 

WRilEvof*)’ 

WKilEvor*)' ENIER DiRbC’. iUN CUbiNEb : ' 


WRi TE(6 » ¥ ) ' CUbXCi) - X-DiRbCllON 

WRITE(6t*)' CUbY(l) - Y-D1RECI IUN 

WRITE ( 6 » * > ' CUSZ(i) - Z-DiRbC I IUN 
WRITE ( A? * ) ' 

712 FORMAK' bNIbR OALUb UF CUSXK) FUR 
WRITE (6*712) li 

1 F ( N 1 ERM . EQ • 3 ) WR i I b ( 6 r * > ' 

READ ( b * * ) CUbX(ii) 

713 FORMAK' ENIER OALUb UF CUSYCi) FUR 


CUS1NE UF 
CUblNE UF 
CUblNE UF 

CUMKUNbN I 


CUMKUNEN I 


I HE AX lb UF CUMF’ . i 
1 HE AXib UF CUMK. I 
I HE AXib UF CUMP. i 

NU. ' * 12) 


NU. ' . 12) 
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ORIGINAL PAG*. IZ 
OF POOR QUALiT/ 


WRiTE(6>40 ' 


WR1IE(6»712> ii 
'IF (NTERM.EQ .3) WRIIE(6»40' 

READ! 5 r 40 COSY (11) 

714 FORMAT!' ENIER VALUE UF CUSKl) FUR COMPONENT MU. '»12) 
URITE<6*40' 

WKI IE ( 6 » 712 ) 11 

IF ( N TERM . EQ . 3 ) WR11E(6»40' 

READ l 5?*) COSZ(ll) 

END IF 

IF ( NSEG( 1 1 ) »GT • 1 ) I HEN 
WRITE ( 6 » 40 ' 

WRI TE(6f X ) ' ADU1I 1UNAL 1NPUI REUU1RED FUR I ' 

WRITE ( 6 » y33 > II »NI IT< II ) 


711 


WRI TE(6»<0 ' 

WR1 TE<6»40 ' ENIER 
WRITE ( 6 » 40 ' IEND 
WRITE ( 6 » 40 ' 

WRITE ( 6 * 40 ' 

WRITE<6»40' NUTE 
WRITE ( 6 f 40 ' 

00 JJ-1»NSEG<1I) 

WRITEC6.40' 

WRITE ( 6 » 715 ) JJ 
FORMAT (' ENTER VALUE OF IEND 
IF ( NTERM.EU . o) WRITE<6»40' 
READ (5»40 IEND(JJ»11) 

END DO 
END IF 

IF(ITR(II).GT.O) i HEN 


NSEG(1> VALUES UF 1ENU(J»1) » 

: POINT NUMBERS OF THE ENDS UF 
UN M-L1NES UN COMPONENT I . ' 


J-l »NSEG( 1 ) 
I HE SEGMENT 


S' 


NSEB(I) TOTAL ( MAX . -5 ) PER COMPUNEN I ONLY' 
REUU1RED IF NSEU(I) > 1 . * 


FUR SEGMENT NU. '»12> 


WRITE(6 
WRITEI6 
WRITE ( 6 
WRI TE ( 6 
WRITE (6 
WRI TE ( 6 
WRITE ( 6 
WRITE (6 
WRITE < 6 
WRITE(6 
WRITE ( 6 
WRITE (6 
WRITE<6 
WRITE! 6 
WR I TE ( 6 
WRITE(6 
WRITE(6 
WRITE (6 
WRITE ( 6 
WRITE<6 
WRITE ( 6 
WRITE ( 6 
WRITE ( 6 
WRITE ( 6 
WRI TE ( 6 
WRITE ( 6 
WR I TE ( 6 


REQUIRED FUR 


40 ' 

40 ' ADU1 T1UNAL 1NPUI 
V33) 1 1 » NT IT ( 1 1 ) 

40 ' 

ENTER TRANSF ORM A I 1UN PARAMETERS - A TOTAL UF HR 
TIMES FUR COMPONENT 1 

EACH TRANSFORMATION REUU1RES I HE INPUT 


40 

40 

40 

40 

40 

40 

40 

40 

4:) 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 


11 )' 

OF IT R2 , TR(1)' 


» TROD » I R ( 3 ) » AND TR<4) 


ITR2 


TR ( 1 ) 


INDICATOR FUR TYPE UF TRANSFURMA ’ ION' 

= 1 » SCALING 

= 2 » TRANSLATION 

= 3 f ROTATION 


ITR2 
ITR2 
II R2 


I R ( 2 ) 


Rl3) 


J FIRST I RANSFQRMA I 1UN PARAMETER - 
MUL I 1PL1CA I 1UN FACTOR UN X-SCALE IF 
TRANSLATION OF X-SCALE IF 

ANGLE OF ROTAIIUN IF 

(POSITIVE CLUCKW1SE » LOOKING 
AWAY FRUM URIGIN) ' 

J SECOND TRANSFURMA! IUN PARAMETER - ' 

MUL I IPL1CATIUN FACTOR UN Y-SCALE IF ITR2 

IRANSLAIIUN UF Y-SCALE IF 1 I R2 

X DIRECT IUN CUSINE UF AXIS OF RUT AT IUN ’ 

J F 11 R2 

: THIRD I RANSFURMATION PARAMETER - 
MULT 1PL1CAT IUN FACTOR UN Z-SCALfc IF ITR2 


-= 1 ' 

- ’ t ' 

- 3' 
DUWN AXIS' 


- 1 ' 

V ' 


- 3' 

- 1' 
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UR I TE ( 6 f * ) ' TR 

WRITE ( 6 » * ) ' Y 

WRITE(6f*> ' 

WRITE ( 6 f* ) ' TR ( 4 ) : 
WRITE ( 6 f # ) ' D 

WRITE(6f*)' Z 

URITE(6»*> ' 
URITE(6f*>' 

URITE( 6rV) ' NUTE. ' 
WRITE ( 6 f # ) ' THE AXIS 
WRITE ( 6 » * ) ' UR 1 GIN ♦ 
WRITE ( 6 f # ' ' EQUAL IU 


TRANSLA I I UN UF Z-SCALE IF ITR2 - 2' 

Y DIREC I 1UN OUSINE UF AXIS UF RU1ATIUN ’ 

IF I IR2 - S' 

FUURIH I RANSF URMA I IUN PARAMETER - 
DUMMY IF 1IR2 - 1 UR 11 R2 - 2 ' 

Z DIRECT 1 UN CUSINE UF AXIS OF RUIA11UN ' 

IF 1 TR 2 - 3 ' 


WRITE ( 6 » # ) ' THE AXIS UF RU IAI1UN IS ASSUME D TO PASS I HRUUGH I HE ' 
WRITE ( 6 » * ) ' UR 1 GIN ♦ 1HIS 1NPUI IS REQUIRED IF I1R(I) IS NUT' 
WRITE ( 6f< > ' EQUAL IU 0 FUR ANY COMPONENT I . A TUI AL UF I1R(1)' 
URITE( 6it) ' 1 RANSF URMA I IONS ARE PERFORMED FUR EACH CUMPUNENI I . 
00 JJ=1 f I IK 1 1 1 ) 

WRITE ( 6 f * ) ' 

WRITE(6f#)' 

UKi TE(6f 716 ) IIfJJ 

/16 FORMAT (' COMPUNENI NU. '»12»2X»' 1 RANSF URMA I ION NU. »12> 

URITE(6f*)' 

URITE(6f*)' ENIER VALUE FUR ITR2 ' 

IF ( N TERM • EQ . 3 ) URIIE<6»*)' 

KEADCSf #) ITR2 ( JJ r 1 1 ) 

WRITE ( 6»¥ ) ' 

WRITE(6f*)' ENIER VALUE FUR IR(1> 

IF (NTERM.EQ.3) UR1IE(6f*)' 

READ ( 5 f # ) IRUJJfH) 

UKirE(6»#>' 

WRITE(6f#)' ENTER VALUE FUR lRl2> 

IF (N1ERM.EU.3) UR1TE(6»*)' 

READ(5f*) TR2 ( JJ f 1 1 ) 

UKITE(6f#)' 

WKITE(6f*)' ENIER VALUE FUR IRl3) 

IF (NTERM.EQ.3) UR1TE(6»*>' 

KEADOf#) TR3 ( J J f II ) 

UKITE(6f*)' 

UR1 TE ( 6 f # ) ' ENIER VALUE FUR IR(4> 

IF ( NTERM «EQ .3 > WR1IE(6f*)' 

READ 1 5 f # > rR4(JJ»il) 

WKITE(6f*)' 

END 00 
END IF 
END DO 

WRITE PROMPT FUR VARIABLE SPECIF ICA I 1UN 


WK I TE ( 6 f $ ) 
URI TE ( 6 « * ) 
WRITE (6»*) 
WRITE ( 6 ? * ) 
WRITE l 6 f * ) 
URI TE C of*) 

UR 1 TE ( 6 f * ) 
URI TET6f*> 
WRITE ( 6 f * ) 
URITE(of*) 
UR I TE (of*) 
URI TE C 6 f # ) 


YUU WILL NUU HAVE I HE UPPURIUN1IY IU CHANGE' 
ANY CUMPUNENI VARIABLE UR UP! IUN BY SPECIFINU' 
I HE VARIABLE AND I HE CUMPUNENI NU.' 


ENTER VARIABLE NAME AND VALUE' 

EG. VAKU)-=3.S ' 

ENIER * RESET * 10 RESET THE DEFAULl 
ENIER WHEN FINISHED' 

ENIER "ABURI* IU TERMINATE' 


VALUES' 
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IF ( NTERM *EU « 3 ) WR11E(6r*>' * 

IF ( NTERh . EQ . 4 ) WRlTE(6rV50> 

950 FORMAT ( / ) 

JO URITE(6t*)' EMIER COMMAND ' 

IF (NTERM . EQ « 3 ) URllE(6»*>' ' 

IF (NTERM. Eii. WKllE(6»y50) 

READ(5f810fERR=20)CHD 

TEST FOR ABORI 

IF ( CMD (llD.EU.'A') 00 10 400 

TEST FOR END OF INPUl 
IF(CMO(i:i) .EU. *U* ) 00 10 oOO 

TEST FOR RESET UEFAULl 
IF t CMD li:i)*EU*'K') 00 TO 10 


ORIGIFvM. PAGE 
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FEST FOR HELP REUUES1 


IF(CMD(i:i) *EU. 'H' ) I HEN 


LIST COMMANDS 


UKIFE16f*>' DO YOU WISH A PR1NIEU LIS flNO OF THE VnRiAHLESY ' 
IF ( NTERM. EU.o) UR1IE<6 f*)' 

IF ( NTERM . EQ « 4 ) UR1TL16»V50> 

CALL YESNO(NY) 

IF ( NY . EQ • 1 ) THEN 

OPEN ( UN IT = 1 » F 1LE= ' SMHS1NF 0 4 SAO ' » SI A I US= ' OLD ' ? DISK- ' PR1N I ' ) 
CLOSECUNI T-l ) 

WRITE! 6»*) ' UB I n IN LiSIlNO A1 UAX UERSAIEC' 

ELSE 


MAKE SMALL LE11ERS UN 4014 

IK ( N TERM . EQ . 3 ) I HEN 
CALL H4014 ( 0 ) 

END IK 

OPEN ( UN IT=1 » F 1LE= ' SMHS INK U • SAV ' » STA I US- ' ULU ' ) 
I0S=0 
1=0 

DOUHILE CIOS. EU.O) 

READ(1f810fIUSIAI=1US> LINE 
1K( IOS.EQ.O) I HEN 
1 = 1 + 1 

IF ( I . EQ . 22 ) THEN 

WRiTE(6»#)' ENIER :.CR> 10 CUNI1NUE' 

READ t 5 ? # ) 

1 = 0 

END IF 

WRi I E ( 6* 820 ) LINE 
END IF 
820 FOHMAHlXfA) 

END DO 
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c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

40 

c . 

c 

c 

00 

c 

c 

c 

oO 

c 

c 

c 

70 

c 

c 

c 

ao 

c 


CLOSE ( UNI i ^1 ) 
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MAKE BIG LETTERS UN 4014 

IF (NIERM.EQ.3) I HEN 
CALL H401 4 ( 2 ) 

ENU IK 
ENU IF 
UU IU oO 
ENU 


UECUUE COMMAND INFO I 

CALL UECOUE ^ CMU t NSEC » iCMU » ICUMF » VAL t 1 VAL t iEKK 1 ICUMF2 ) 
CHECK FOR COMMAND INFO I EKKllR 
IF < iERK.NE.O) I HEN 

iF ( iEKR ♦ EO « 1 ) UKilElofV)’ INVALID VAKIAHLE NAME' » CMD 
IF( I ERR *EU. 2) UKI I E ( 6 r V ) INVALID ARbUMEN I SFEC. »CMU 

IF I IERK.EU.3) UKllE(6r*)' INVALID CUMFONEN I SFEC »CMU 
IF ( IERR.EQ.4 ) UK I I E ( 6 r $ ) INVALID VALUE SFEC. '.CMU 
GO ro 30 
END IF 


BRANCH 10 ASSIGN AFFRUFR I A I E VARIABLE 


GO 10 (40»s0»60»/0fs0»v0»100»il0»120»130fl40»100» 
1 160 » 1 70 f ISO » 1 VO 1 200 1 210 1 220 r 230 * 240 » 200 » 260 » 270 
2 ) I CMD 

URIFEvof*)' INVALID COMMAND' fCMD 
VARIBLE NSEC 


NSEC- I VAL 
GO 10 30 


variable nopi 


nop r- I VAL 
go ro 30 


variable nb 


NB ( 1C0MF ) -IVAL 
GO TO 30 


VARIABLE NALUB 

NALGB ( I COMP ) - I VAL 

go ro 30 


VARIBLE NU 

NU C ICOMP ) -1 VAL 
GO ro 30 
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c 


VARIABLE NnLGU 


i 

* 


►> 


U 

yo NALGUUCOMP) = IVAL 
GO TO 30 
C 

C VARIABLE NS 

0 

'100 NS ( ICGMP ) -IVAL 

GO TO 30 
C 

C VARIABLE NALGS 

C 

110 NALGSdCOKP^IVAL 
GO TO 30 
C 

C VARIABLE INTS 

C 

120 IN l'S ( I COMP ) -1 VAL 

GO TO 30 
C 

C VARIABLE NALG2 

C 

130 NALG2 ( ICQMP > -IVAL 

GO TO 30 
C 

C VARIABLE NALG3 

C 

HO NALG3 ( I COUP ) = IVAL 

GC TO 30 
C 

C VARIABLE IXFLAG 

C 

ISO IXFLAG( ICUMP)-1VAL 
GO TO 30 
C 

C VARIABLE IMODE 

C 

160 INODE i I COMP ) - I VAL 

GU TO 30 
C 

C VARIABLE I TR 

C 

170 I TR ( I COMP ) -1 VAL 
GO TO 30 

C 

C VARIABLE NSEG 

C 

ISO NSEG( ICOMP>-lVAL 
GO TO 30 
C 

C VARIABLE COSX 

C 

190 COSX( ICOMP)^VAL 
GO TO 30 
C 

C VARIABLE COSY 

C 
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200 CUSY < ICUMP ) -VAL 

go ro 30 
c 

C VARIABLE COSZ 

C 

210 COSZ ( ICOMP ) -VAL 
GO TO 30 
C 

C VARIABLE SSB 

C 

220 SSB ( IC0MP2 f ICUMP ) -VAL 

GO TO 30 
C 

C VARIABLE SSU 

C 

230 SSU ( ICQMP2 f ICUMP ) -VAL 

GO TO 30 
C 

C VARIABLE S3S 

C 

240 SSS ( IC0MP2 f ICUMP ) -VAL 

GO TO 30 
C 

C VARIABLE IENU 

C 

200 IEND ( IC0MP2 » I LUMP ) -VAL 
GO TO 30 
C 

C VARIABLE ITR2 

C 

260 ITRANS-1 

WRITE vo?&) ' 

WRITE ( 6 f * ) ' IS THERE HURL I HAN ONE I RANSFURMA1 ION TO BE DEFINED 
WRITE(6f*> 'FOR THIS COMPLIMENT Y ' 

UR I TE ( 6 f * ) ' ENTER Y FOR YES UR N FUR NU ' 

IF (NTERM. EU. 3) UR1 I E ( 6 f * ) ' 

CALL YESNO(NY) 

IF(NY.EQ.l) THEN 

URITEvof*) 'ENIER 'HE TRANSF URMA ! 1UN NUMBER f-UR WHICH THIS' 
WRITECofC) 'VARIABLE APPLIES ? IE. 1f2f3f4 UR 0 (MAX. - 0)' 

IF ( NTERM . LU . o ) URITE(6 f*)' 

READ ( 5 f 4: ) 11RANS 
END IF 

WRITE (of*) 'ENIER I HE CUMPUNENT NUMBER IU WHICH THIS' 
URITF.(6f4) 'TRANSFURMATION WILL BE APPLIED' 

WRITE (of#) ' ( ENIER A INIERUER VALUE > ' 

IF ( NTERM . EQ • 3 ) UR]TE(6f*>' 

READ ( 5 f * ) JCUMP 
L TR2 ( I TRANS f JCUMP > -VAL 
GO TO 30 
C 

C VARIABLE TR 

C 

270 ITRANS-1 

WRITE (of*) ' 

WRITE <6f*) ' IS I HERE MURE 1 HAN IINE I RANSFORMA I I UN III HE DEFINED 
WRITE (of*) ' F UR I H IS CUMPUNEN I ' 
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URITE(6f*)' ENItH Y HIH YES UK N FOR NO ' 

IF (NTERM .EU • 3 ) WRiTE(6r*)' 

CALL YESNO(NY) 

IF(NY.EU.l) I HEN 

WRITE ( 6 ? * > ' EN I tR I HE TRANSFORMATION NUMBER HlR WHICH IH1S' 
WRITE<6»*> 'VARIABLE APPLIES » IE. 1»2»J»4 UR It (MAX. = 5)' 
IF (NTERM. EU.3) URlTE(6f*>' 

READ ( 5 f * ) 11RANS 
END xF 

URI TE(6f*> 'ENIER THE COMPONENT NUMBER TO WHICH (H)S' 
1"UTE(6 f*> 'TRANSFURMAI IUN WILL BE APPLIED' 

URITE(of*>' ENIER AN INTEROER VALUE ' 

IF (NTERM .EU.3) UHIIE(6»*>' 

READ ( 5 » * ) JCOMP 

IF ( ICOMP . EQ . 1 ) IR1 (IT RANS r JCOMP ) -VAL 
IF( ICOMP. EU *2) I R2 ( II RANS r JCOMP ) -VAL 
IF ( I COMP. EQ. 3) TR3 ( l I RANS » JCOMP ) -VAL 
IF( ICOMP. EU. 4) 1 R4 ( ITRANS t JCOMP ) -VAL 
GO TO 30 

ENTER INPUT FILE NAME 

00 WRITE ( 6 r # ) ' ENTER INPUI FILE NAME (13 CHARS)' 

WRITE ( 6 1 * ) ' THIS WILL BE I HE INPUT FILE 10 (HE ' 

WRITE (or*) ' PANEL GENERA I ION PRUGRAM' 

URITE(6r*> ' INPUI FILE NAME ? ' 

IF (NTERM . EQ • 3 ) URlTE(6r*>' 

IF ( NTERM . EU . 4 ) URITE(6r950) 

READ ( 5 r 810 ) INFILE 
WR1 TE ( 6 » * ) ' 

WRITE THE INPUI FILE 

OPEN ( UNIT -2 ? F ILE- INF ILE r ST A I US- ' NEW ' ) 

WRITE FILE TITLE 

WRiTE(2r810)Tl ILE 

WRITE OPTIONS 

WRI TE ( 2 f 3 1 1 ) NSEC r NP I S r NOP 1 

ail !‘0RMAT(lX»12»lX»il»lX»il) 

JO 1 1-1 f NSEC 

WRI TE ( 2 r 812 ) NB( li ) rNALGB( II) »NU( II ) • NALGU (11) rNS( 11 ) t 

1 NALGS (11) v iN IS( 11 ) rNALU2( II ) » NALG3 (11) r 

2 IXFLAG (11) f IMUlik (11) » IT R ( 1 1 ) r NSEG ( 1 1 ) r NT 1TUI) 

812 FORMA I (lX»I2»lX»ll»lXrl2»lXfll»lX»I3»lXfIlflXfl2»lX» 

1 II »1X » 11 » lXr 11 .lXfllf lXf 11 »1X» IlflXf A30) 

END DO 

DO 1 1 -If NSEC 

IF( IMUDE( II ) .EQ. 1 ) (HEN 

WRI TE(2f 813) CUSX( II ) fCOSY( II ) fCUS2( li ) 

813 FORMAT (3F 10.3) 

END IF 

IF ( NALGB ( II) . EU . S ) I HEN 
DO JJ-lrNB(II) 
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WRITE(2»«14> SSB ( Jjf 1 1 > ORIGINAL PAGE tJ 

814 FORMAT (F10.5) OF POOR OUALffY 

END DO 
END IF 

IF(NALGU(II> .EU.G) I HEN 
DO JJ-1 1 NU( II ) 

WRITE(2»815) SSU(JJ,il) 

810 FORMAT (F10.5) 

END DO 
END IF 

IF < NALGS ( 1 1 ) « EQ • 3 ) 1 HEN 
DO JJ-1 »NS( II ) 

WRITE(2»31o > SSS ( J J r 1 1 ) 

816 FORMAT ( F10 « 5 ) 

END DO 
END IF 

IF ( NSEQ ( 1 1 ) « GT • 1 ) I HEN 
DO JJ-1 ?NSEG< II) 

WRITE ( 2 » 818 ) IEND(JJ»il> 

818 FORMAT (114) 

END DO 
END IF 

IFUTR(II).Gl.O) 1 HEN 
DO JJ-1 t I TR (II) 

URI TE(2»817) 11 R2 ( J J » 1 1 ) » I R1 ( JJ 1 1 1 ) » TR2 ( JJ 1 1 1 ) » 

1 TR3( JJ»11) t IR4( JJt 11) 

8: / FORMAT (Hr4FlO«5) 

END DO 
END IF 
END DO 
C 

C WRITE NETWORK DA I A 

C 

DU K-lrNNET 

LEND-INET ( 3»K ) * l NET (2rK) 

DU J-l »LEND 

WK1 TE(2»VoG) UUURD ( J » 1 r K ) » CUURD v J » 2 » K ) t CITURD ( J t 3 t K ) ? 
1 ST AT ( J 1 1 ? K ) » S I A 1 ( J t 2 » K ) 

END DO 
END DO 

CLOSE ( UN IT-2) 

C 

C ENIER OUTPUT F j.LE NAMES 

C 

UK I TE ( 6 » * ) 

WRI TE ( 6 f 4t ) ' ENIER UU I PU I FILE NAME (13 CHARS)' 

WRITE ( 6 » < ) ' I HIS WILL RE I HE U'J I PU I FILE ' 

WRITE ( 6 » * ) FRUM 1 HE PANEL GENERA II UN PROGRAM' 

WRITE(cf*)- WHICH WILL bE USED FUR PLOTTING ' 

WRI TE ( 6 1 4 ) ' RESULIS AND GENERA I 1NG PANAIR' 

WRI TE(6»*) ' 1NPLI I ' 

WRITE(6»*> 'OUIPUI FILE NAME * ' 

IF ( N TERM . EQ • 3 ) WR1IE(6»*>' 

IF 'N TERM. EG. 4) WR.I I fc (6 * 950 ) 

READ ( G » 810 ) UIF1LE1 
WR I TE ( 6 » ) 

WRlTE(o»*)' ENIER HAICH UU I PU I FILE NAME (13 CHARS)' 
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C 

C 

C 

*?10 

C 

C 

c 

400 

920 


c 

c 

c 


WRITE(6f*>* I HAS WALL St I Ht UU I Hll I FILL ' 


WRI TE ( 6 » * ) ' I- RUM I Ht PANEL UENERA • IUN PROGRAM' 

WRITE(o>*)' WHICH WALL St PRINItU IF A LUPY UF 


WRITE(o»*>' I Ht IHPUI AND RtSUL I S ARE LiSIRED' 
WR ATE ( 6 * * ) ' UU I PUT FILE NAMb Y ' 


LK ( N TERM . EQ • 3 ) WRllt<6»#>' ' 

IF ( NTERM . tU . 4 ) WRllt(6»950) 
READ(5»810) UIF1LE2 


RUN CUMMAND FILL IU ASSIGN FALLS lU LUN S 

WRI TE ( OUTPUT ,V10> INF ILL ; 'J IF lLtl.UlF ILE2 
FORMAT (' *8ASSGN ' * A* At A) 

STATUS-L1B$DU_L0MMAND(UUIPU< ) 

PRUGRAM ABORl 


WRITE(UUrPUI »V20) 3 
FORMA I ( ' I RANSF »A1) 

ST A TUS-LI B$DO_LUMMAND ( UU I Pill ) 
END 


CCCCCCCCCCCC^CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLLLLCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCLULLLLCLLCLCCULLLCCCCCCLCLCLCLLLLLULLLUUULU 

C 

C 

L 


C 

U 

c 

c 

ti 

c 

c 

u 


c 

c 

c 


c 

c 


SUBROUTINE DELUDE l CMU » NSLC » ACMD » ACUMP » UAL » AUAL » ItRR » ALUMP2) 

DELUDE IN TERPRb. I S AN ANPUI SI RANG FUR 
PURLLDLURL SMHESS 


PROGRAMMED UN 24 MARLH 1Y82 


— -LHARAC f ER#6 UARNAM ( 24 ) tLMD*20 


M . L . W 1 I I t 


DA r A OARNAM/'NSLL 

9 

' NUP 1 

» • NS 

• » ' NALbB 

' » ' NW 

1 

r ' NALUW 

9 

' NS 

» ' NALUS 

' f ' INIS 

‘ t ' NAL02 

‘1 

» ' NALG3 

9 

' AXFL AU • 

» ' AMUDL 

' » ' HR 

• f ' NSbG 

3 

t ' cosx 

r 

'LIISY ’ 

r LUS2 

' » SSS 

t ' ssw 

4 

1LRR---0 

t sss 

9 

' A END 

? ' A 1 R2 

t ' 1 R 

• / 


FIND NUMBLR UF CHARAL I tKS AN UARAnBLL NAME 

NLHR3-0 
NLHR- 1 

DUWHlLt ALMDtNLHRJNLHP » . Nt . t ' . AND . LMD ( NLHR : NLHR ) . Nt . i 
NCHR=NLHR+ 1 

INVALID OARlnBlb NAME 


A-44 


r. r c. rr. r. r. cl r. n n r. r. r. n r. r. o r. r. 'r< r. r. 


C 


IF iNCHR.UI'. /) IHtN 
iCMO-O 
1CUMR=0 
-1LKK-1 
RE I URN 
tNU IF 
tNU UU 
NCHR-NCHR-1 
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iNVALiU ViiKiyLt NAME 

IF tNCHH.LI .2) ! HEM 
LCMU-0 
ICUMF'=0 
lt.RR-1 
Ht I UKN 
tNU IF 


Ut I ERMINE SELECIED VARiBLE NAME 


1CMU-1 

LUWH1LE (CMDt 1 INCHR) .NE.VARNAMUCHU) C 1 jnchr) ) 
1CMD=ICMU+1 


* 


VARIABLE NAME NU I MJUNU 

iFaCMD.GT.24) IHtN 
ICMU-O 
iCUMP=0 
1 ERR-1 
KtlUHN 
tNU IF 
tNU UG 


CHECK FGH COMMANDS WHICH AKt SHUR I ENtD VERSIONS UF A 
SIMILARLY LABELED UUMMANU 


IF (CMDa :NCHR) .EU. ‘ NS' ) iCMD-/ 

IF (CMUl 1 JNCHR) .tU. • 1 IK’ ) iCMU-14 


CHECK FUR NSEC UR NUR I 


IF aCMU.LI .3) I HEN 
NUHK2-NCHR 
GU TO 351 
tNU IF 

DUES VARlBLE NAME HAVE AN AKlillMLN I 
NCHH-NCHK+1 

IF UJMUi NCHR I NCHR ) .tU. > I HEN 
iCUMP-0 


A-45 


r - r - r - r, r. r. i n r. r. ' r. r. r. r. r. r ! nr 


ORIGINAL PAGE IS 
OF POOR QUALITY 


iLRR-2 
RLI URN 
bNU it 

L 

... VARiABLL NAML HAS AN AKGUftLN I 

_ nchr2-nchr+i 

UUWH1LL < Ci1D C NCHR2 « NCHR2 ) ♦ Nb . ' ) ' • AND « CNU ( NCHR2 1 NCHR2 ) .NL. ' » ' ) 

NCHR2-NCHR2+ 1 

INVALID AKGUftLN I SFLCit 1LA I 1UN 

iHNCHR2.GT.10)’ THEN 
1CMD— 0 
iCUNF-0 
ILRR-2 
Kt TURN 
LND IK 
LND DU 

CHLCK FUR DOUBLL ARUlMbN I 

_ it (Cf1UlNCHR2:NCHR2) .bU . ' t * ) I HLN 
NCHR3-NCHR2 

UUUHiLE ( CMD ( NCHR3 : NCHRo ) .Nt. ’ ) ' ) 

NCHR3=NCHR3+1 

CHLCK KOR INVALID ARUUHLN I SFLCit 1CA I 1UN 

it C NCHR3 . G T ♦ 10 ) I HtN 
_iCMU— 0 
iCUMR-O 
ILRR-2 
Rb I URN 
tNU it 
LND DU 
bNU IF 

UtT FIRST ARbUMLNI i, UUUBLb ARbUMLNI SFbCltibD) 

it < NCHR3 . GT . 0 ) I HtN 
NCHR2-NCHR2+1 
NCHR3-NI HR3-1 
it v NCHR3 • EG . NCHR2 ) I HtN 
RtnD ( CMD ( NCHR2 • NCHR2 ) »VOO) 1CUMP2 
tJ.SE 

RtnD < CMD ( NCHR2 l NCHRo ) »yll ) ICUMP2 
tNU i h 

NCHK2-NCHR2- 1 
tNU it 

iNVALIU ARbUMLNI S! -tCit iCA I 1UN 

it v NCHR2-NCHR . Lb . 1 ) I HbN 
1CMU-0 
1 CUMt’-O 
itRR -2 
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r.rr r. c. c. r. r. r. < < r. c. 


v 


l 


11 


KLIUKH 
fc.HU IP 


0R1GIMAL 

POOR Q^ U,T 


OF 


bt l LUHPUHLH I HUHUtK 

HLHK2-HLHK2-1 

HLHK-NLHPi+1 

IP t HLHK . LU « HLHK2 ) I HtH 

KtrtmLHlKNLHRJHLHK) » yOO ) 1LUHP 
FUKMrtT( 11 ) 

LLbfc. 

KtnU < tMU ( NCHK ; HLHK2 > f VI 1 / 1LUHP 
PUPHrtlt 12) 

KND IK 


I Lb I P UK PKUPLK LUrtPUHLHI KnHbt 

lKlLHD.Ht.24> 'HtH 

IP vlLUHP.bl.HbtL.UK.lLUHP.LI .0) I HLN 
1LHU-0 
1LUHP-0 
ILKK-h 
KLIUKH 
LHU IP 
tLbt 

IP v, iCUflP . b 1 . 4 « UK . 1LUHP' . L I . 1 ) 1 HtH 

1LHU-0 
1LUHP-0 
1LKK— ,5 
Kt I UKH 
LHU IK 
LHU IP 


ULLUUL VnL/iVrtL 

bbl HLHK2-HUHK2+1 

UUUHILt v LHU ( HLHK2 ; HLHK2 ) ,HL. > 

HCHR2-HLHR2+ 1 
lKNLHK2.br. 20) I HtH 
1 LHU— O 
1LUHP-0 
1LKK-4 
Kt i UKH 
LHU IP 
tHU UU 

HLHK2— NLHK2+1 

ULi KtnL VnLUL 

IP < 1LHU.LU.24) KtnU 1 LHU t NLHK2 1 20 ) r V21 ) VnL 

v2i p'ORma r l P'V .1* ) 

IP < 1 LHU. Ut. lo.nHU. iLHU.l_t.21 > KtnU C LHU ( HLHK2 ; 20 ) *y21 ) VnL 

L 

L. bt I IHItbtK VnLUL 

L 

1P< 1LHU.L1.16) KtnU ILilU v HLHK2 J20 ) » yjO ) lUnL 
VoO FURHn I l BH r 1 o ) 
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ORIGINAL TAGS !'J 
OF POOR QUALTTY 


iK V IUI1U.UI .21. ANU.ILilU.LI .24) KtnUtLi1U<NLHK2:20> »VSO> iVAL 
L 

Kt I URN 
ENU 

C *********4:*****^**** 

L 

U SUBROUTINE YESNU 
L 

U **v***************** 

C 

u pkuurammer; m.l. unit 

c 

U YtSNU KEAUS I Ht USERS ANSUtK IU A LiUtS I IUN vtilHtR Y TKUK YES) 
C t i'l <EUK iYU / ) f UR U (HUR UUi I ) ANU SEN US n 1 » G»UK ~1 
U v FOR Y f N*UK U) t BALK IU I Ht CALLINU RUU I INb • 

C 

C NOMENCLATURE: 

L 

L i'l — ALPHANUilER IL HU 

C NY - NUMERIC ANSWER <1 UR 0) 

C Y - ALPHANUMERiL YtS 

L YN - USER ANSWER IU UUtSlIUN 

U U - ALPHANUMERIL UUI I 

C 
U 

SUBROUTINE YESNU C NY) 

CHARACTERS YN » YES*l/*Y'/f NUSl/'NV 
NY =0 
U 

U I Ht ANSWER rU I Ht UUtSIlLN IS KtAU 

C 

10 KtAU l S » SOO ) Y N 
SOO KURMAUA) 

C 

U NY Si I TU 0 IF ANSWER IS NU 

C 

1K VN • Ed . NU ) I HtN 
NY-0 

UU I U o’JO 
ENU ih 
U 

L NY St 1 TU 1 IF ANSWfc R IS YtS 

C 

it" ( Y N «tU. YES) I HtN 
N V — 1 

UU IU iUO 
tNU IK 
U 

U NY=-1 IK ANSWER IS UUil 

L 

iFvYN.EU. U ) I HtN 
NY— —1 
UU IU JUG 
tNU II- 
L 

U IT Y »N» UR U IS NU I ENIEKEUf YN MUS I Bt INPUT AUA IN 

C 
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voo 


CALL BELLL 
WKilE(o»900> 

K OKMA U ■ 1 DU NU I UNDEKS I AND !!!’»/» 

* • PLEASE ENIEK < (I- UK YES>» UK N U-UR NU) 
GO TO 10 


ORIGINAL PAGE '3 
OF POOR QUALITY 


• »/ ) 


350 RETURN 


END 


C 

c 


.CCCCCCCCCCCCCLCCCCLCCLLLCCCCCCCCCCCCCULCCUUJCLCCL'LCCLCLCLLLLLC 


CCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCC 


c 

c 

SUBROUTINE BELLL 
LGGICAL*1 BEL 
BEL-7 

URITE(6f100>BEL 
100 FORMAT (' ' » A1 ) 
RETURN 
END 

C******************* 

C 

C SUBROUTINE H4014 
0 


C******************* 


C 

C SUBROUTINE H4014 CHANGES THE SIZE UP I HE LETTERS PRINTED OUT 


C TO THE TEKT RUNIC3 4014 TERMINAL. 

C 

c programmer: r.a. cox 

C 

c nomenclature: 

c 

C ND - SMALL LETTERS 

C NM - MEDIUM LETTERS 

C NU - LARGE LETTERS 

C NUD - CONTROL 10 DETERMINE WHn ( TYPE IS DESERVED 

C 0 - SMALL 

C 1 - MEDIUM 

C 2 — LARGE 

C 


CCCCCCCCCCCCCLUUCCLULLLLULCCCCCLLCLLLULUCCULCCLCCLLCCCCCCCCCLLCL 


C 


SUBROUTINE H4014 1.NUD) 


DIMENSION NUi2) »NM(2 > fNDt2> 
LOGICAL*! NU» NM*1» ND*1 


C 

C 

C 

C 

c 

c 


LARGE ESC»9 

DATA NU/2 7 »57/ 
SMALL ESC t * 

DATA ND/27 » 59/ 


C 

C MEDIUM ESC»: 
C 
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DnTn NM/2'/ f U8/ 

IF ( NUD . EQ . 2 ) THEN ORK^JNiAL PAGE *3 

URITE< o» 100 ) (Nil ( I ) » 1-1 »2 ) OF POOR QUALITY 

100 FORMA'f (lX»100nl) 

END IF 
C 

IF (NUD .EQ. 0 > THEN 
WRITE C o» 100) (ND(1) t I-lf2> 

END IF 
C 

IF (NUD .EQ. 1 ) THEN 
WRITE (6» 100) (NM( 1 ) »I-^1»2) 

END IF 
END 
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A.2.3 Code For Program MODFY 


The following pages contain the code developed for the MOD3D subroutine. 


or.i‘j»«vu. ' * o - !.» 
OF POOR QUALITY 


C 

C ROUTINE MODFY ALLOWS THE USER fU (JHUUSE 

C A GEOMETRY MODIFICATION RUUTINE 

C 

CHARACTERS INPUT 
C 

C GET TERMINAL CODE 

C 

STATUS-LIBf GET ..HIRE ION ( 1NP J'l ffN) 

READ < INPUT f 900) NTERM 
900 F0RMA1 (II) 

C 

C LIST CHOICES 

C 

10 WRITE (of*) ' ENTER CODE FOR ROUTINE TO BE SELECTED 
WRITE (of*) ' ENTER 0 TO ABORT ' 

WRITE ( 6 f * ) ' 

WRITE (of*) ' 1 - P0IN1 BY POINT MODIFICATION' 

C 

IF ( NTERM 4 EG • 3 ) WR1TE(6f*)' ' 

READ < 5 f * f ERR- 1 0 ) 1METH 
IF ( IMETH.LT . O.OR. IMETH.GT . 1 ) GO TO 10 
IMETH-IMETH+1 
C 

GO TO (90f20) » IMEIH 
20 CALL M0D3D( NTERM) 

GO TO 100 

90 WRITE (of*) ' MUDFY AB0R1 ' 

100 CONTINUE 
END 


no nt-* -o o o nno non 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


800 


SUBROUTINE MUDoD(NTERM) 


ORIGINAL rV/JL' vi 

OF POOR QUALITY 


M0D3D IS A SUBRUUI INF TU MODIFY THREE DIMENSIONAL 
GEOMETRY RILES UN A POINT BY POINT BASIS 

PROGRAMMED 23 MARCH 1982 BY M.C. WITTE 

REQUIRED SUBRUUI 1MES 

CHMGE 

RECNU 

LIBRARY SUBR 


DIMENSION COORD ( 200 roroO) > 1NET (3ro0> r ICHNU ( 6000 r L > 
CHARACTER*13 NAM r NT IT ( 60 ) *60* T1TLESU0 
1 rPGINT*6r0UTPUT*10 
L0GICAL£1 EX 
FORMAT < 1 1 ) 


GET FILE NAME 

WRITE (or 4) * EN I EH FILE NAME TU BE MODIFIED* 
IF ( NT ERM.EU . 6 ) WRITE(6r*)* 

READ (Sr * (A) ' ) NAM 


READ IN FILE 


INQUIRE ( FI LE-NAM r EX1SY-EX ) 

IF (.NOT. EX) THEN 

WRITE (6>l) ' FILE 'rNAMr* DUES NOT EXIST* 

MP = 1 

GO TO 100 
END IF 

OPEN ( UNIT-=1 r FILE-NAMr ST A 1 US- ' OLD ' ) 

READ ( 1 r 965 ) TITLE 
65 FORMAT ( A ) 

DO K— 1 r 60 

READ( 1 r 955 r END -15) I NET (3rl\) r I NET (2rK) r.NTIT <K) 

IMET ( 1 r K ) =K 
NNET-K 

55 FORMAT ( 21 4 r A ) 

LEND-=INET ( 2 r K ) * 1NET ( 3 r K ) 

DO J-l » LEND 

READ ( 1 r 960 ) COORD ( J r 1 rK) r COORD ( J r 2 r K ) » COORD ( J r 3 r K ) 
60 FORMAT (3F20. 5) 

END DO 
END DO 

5 CLOSE (UNIT-1 ) 

RECORD POINT CHANGES 

NCHNG-0 

20 NCHNG-NCHNG+ 1 

IF (N) ERM.EU. 3) CALL H40l4(0> 

WRITE ( 6 r * > ' ENTER POINT NUMBERS FOR CHANGES' 
WRITECot*)' ENTER ’U* WHEN FINISHED ' 
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utaumL PAGE IS 
OF POOR QUALITY 


C ENTER Point * A * SPECIFICAT 1 UN 

C 

21 URITE(o»*>- ENTER NUMBER FUR POINT A' 

IF (NTERM.EU.4 ) UR1 T E ( 6 » VCiO ) 

750 FORMAT </> 

IF < NTERM . EQ . 3 ) URlTE(o»*>' 

READ (5f 830) POINT 
330 FORMAT ( A ) 

IF<POINT(i:i) .Nfc . IT > THEN 
C 

C DECODE VARIABLE 'POINT* 

C 

1-1 

DOUHILE (POINT < 1 J I ) »NE . ' - ' ) 

1*1 + 1 

IF(I.GT.3) THEN 

WRITE ( 6 » * > ' INVALID PUIN1 SPECIFICAT IUN ' 
GO TO 21 
END IF 
END DO 
11 * 1-1 
111 * 1+1 

READ ( POINT ( 1 i 1 1 ) »840)ICHNG(NCHN0 f1) 

C 

I*III 

DOUHILE ( POINT ( 1 J 1 ) . NE . ' ') 

1*1 + 1 

IF(I.GT.o) THEN 

WRITE ( 6 » + ) INVALID PUINI SPECIFICATION' 
GO TO 21 

END IF 
END DO 

IF(I.EQ.III) THEN 

URITE<of*)' INVALID PUIN I SPECIF I CAT 1 UN ' 

00 10 21 
END IF 
IE-I-1 

READ(P0INT(IIi:iE)»S40) 1CHN0 ( NCHNli t 2 > 

C 

C ENTER POINT *B' SPFCIF ) CAT ION 

C 

22 WR I TE < 6 ? * > ' ENTER NUMBER FUR PUINI B' 

IF (NTERM.EU.4) URltE(6»VOO) 

IF (NTERM.EQ.3) URi!L(o»+)' 

READ(5»330)PUIN; 

C 

C DECODE VARIABLE 'PUINI* 

C 

I -1 

DOUHILE < POINT ( 1 • I ) • NE . *-* ) 

1*1 + 1 

IFCI.GT.3) THEN 

WRITE (6»Ii INVALID POINT SPECIFICATION* 
00 TO 22 
END IF 
. END DO 


A-54 


o noon n n n I r j n n n 


340 

C 


II-I-l 


POOR 


r/r r • * 

quality 


III^I+l 

READ (POINT ( 1 1 1 1 ) »H40 ) ICHNG ( NCHNG » j ) 
FORMA! (14) 


I — 1 1 1 

DOUHILE < POINT < l ! I ) • NE* ' ') 

I^I + l 

IF(I.GT.o) THEN 

WRITE ( 6 ? 40 ' INVALID PUIN! SPECIFICATION' 
GO TO 22 
END IF 
END DO 

IF(I.EQ.III) THEN 

WRITE ( 6 f "40 INVALID PUINT SPECIFILA ( 1UN ' 

GO TO 22 
END IF 
IE-I-1 

READ < PO INT ( 1 1 1 : ) E ) » 340 ) I LHNG ( NLHNU » 4 ) 


ENTER CHANGE MUDE SPECIFICATION 


WRITE(of40‘ EN I ER CHANGE CODE' 
IF ( NTERM. EU« 4) WRi lE(6»y50) 
IF(NTEP.M.EQ.o) UK1TE(6'S>* 

READ ( 5 » * ) I CHHG ( NCHNG » D ) 


1 


IF i ICHNG ( NCHNG » 0 > . NE . 1 . AND . I LHNG ( NCHNG » 3 > . NE . 2 . AND 
« ICHNG (NCHNG* 5) . NE.2.AND. ICHNG s NCHNG tli) *NE.4> I HEN 
WRITEs6r40 • ACCEF’TABLE CHANGE CUBES ARE 


WRITE ( 6 * 40 1 - MOVE PUlNI b 10 PUINT A 

WRITE(o* 40 ' 2 - MOVE BU1H PUlNlS IU AN AVERAGE VALUE' 


WRITE ( 6 * 40 ' o - MUVE PUIN I A IU PUIN I b 

WRI TE ( 6 ? 40 ' 4 - SPECIFY VALUE FOP. bU I H PU1NT3' 

GO TO 23 


END IF 


ECHO CHANGE FUR CUNF1HMAI1UN 


WRITE s 6 * 40 ' i Ht PKUPUSED CHANGE IS' 

WK I TE ( 6 f ) PUlNI n - '» ICHNG ( NCHNG » 1 >»' — '» ICHNG ( NCHNG » 2 ) 

WRITE ( 6 r 4: ) PUlNI B — '» ICHNG s NCHNG r3 ) > ' — * ICHNG \ NCHNG » 4 ) 

WRITE (6 r 40 ' CHANGE CUDE ' » ICHNG ( NCHNG t G ) 

WKITEv o» 40' 

WHITE < 6 * '40 ' IS THIS CORRECT"' 

IF ( NTERM ♦ EQ • 4 ) WRllE(6fV00) 

IF ( NTERM . FTJ . i ? URl'lL(&»X}‘ 

CALL YES NO s NY ) 

IF ( NY • EQ . 0 ) GU IU 21 
GO TO 20 
END IF 

NCHNG -NCHNG- 1 

PERFORM CHANGE SEUUENCE 


CALL CHNGEs ICHNG f NCHNG fNNE I r CUUHD » 1NET * NTERM » IERR ) 
RECORD GEOMETRY CHANGES 
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ukiu.iAL PAG*1 * 1 

OF POOfi QUALfp/ 


C 

IFvNCHNG.GT.G) THEN 

URITE< 6 » * ) ' DO YOU U13H 10 RECORD GEOMETRY CHANGE * 
IF v N TERM . EG . 4 ) WR1TE(6»VG0) 

IF (NTERM.EQ.3) URITE(o>*)* 

CALL YESNQ(NY) 

IF(NY.EQ.l) THEN 

CALL KECNG ( COORD ? NNE I » INET r NTERM » NAM f I I ILEmNIII ) 
END IF 
END IF 
C 

100 URITE(OUTPUl »V4C) MP 
740 FORMA I ( ' *y , RANSF *rll) 

RETURN 

END 
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c, r. r. r. r. r. r. r. r. I n r. r. r, r. r. r. r. r. n o o n r> r. 


OHUrftl/'. 1 . W*® V 

prv k j .. 


c 

c 


SUBKUUI 1Mb CHMIiE ( 1 LHMU * NCHMH f NNb I f IMKIKIJ » lilt I fNIERHf I ERR ) 

MUUIFY ONE UR A GROUP UF F 0 III 1 3 III n IHKEk 
0II1ENS1UNAL I1UDEL 

PROGRAMMED J MARCH t lVbll BY 11. C. Ulllfc 

FOR USE WITH PROGRAM MlllJolJ 

DIMENSION ICHI-’G i oOOO f o ) f COORD ( 200 » Of 60 ) » INtI (oroO) 

IERR-0 

LOUR THROUGH NCHNG CHANGES 
UU I- 1 f NCHNG 

FIND SRECIF I EU NblVIUKK FUR PUINI A 

JA-1 

LiUUHiLE iICHNU<lfl>.Hb.lHET'l»JAi i 
JA— JA+ 1 

HE I WORK NOT FUUNU 
IF \ Jn « G I . NNE I ) I HEN 

WRIIEIof*)- P0IN1 CHANGE ERRUR UN CHnllUE HU. .1 
WRITE (of*) * NETUJRK * * 1CHHU( 1 1 1 ) f * NU I FUUHIT 
WRITFIof*)- CHANGE ABORTED' 

IERR-1 
GO IU 100 
EMU IF 
EMU UU 

F I MU PUS I TION UF PU1M I A IN CUURU 

NSKIPA-0 
LENU-Jn-1 
UU K- If LEND 

NS I*. 1 F’A-NSK IPn+iMEI ( J f l\ ) * i ME I ( 3 f K ) 

EMU L’G 

PUINI NUI FUUNU 

IF < 1CHMG ( I ;C> . U i . 1NEI ID f JA > « 1NE I U>Jn)) I HEM 

WH I 1 E ( s r* ) ’ P'JXMi CHANGE Er.F.iJK UN CHANGE MU. »1 
WRIIEvof*/- PUINI INUEX GUI UF BUUNIJS' 

WRl I E < o f :K > CHANGE AHllRlEU' 

IERR-1 
UU IU 100 
EMU IF 

NSk IP A -HSK IPA + 1LHMU l I t J / 

FiMU SPECIFIED Nb I WtlKIv FUR PUINI B 


JB-1 

UUUH1LE v ICHNGi 1 f o > . N b . 1NE I ( 1 f JB ) ) 
JB-JBPl 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

NETWORK NOT FOUND 
1M JB.QT.NHE'I > I HLM 

UK 1 IE 1 6 » * ) ' PUINl CHANGE EKRUR UN CHANGE NO. »i 
URI!E<6:*>* NETWORK * » ICMNGt 1 * 6 > * ' NU I FUUN1J 
WRITE! 6**) CHANGE AMUR I Ell * 

IERR-1 
00 TO 100 
ENU IF 
END 00 

FIND PUS I T I ON UF PUINl B IN COORD 

NSKIPB-0 
LEND-JB-1 
00 K-l » LEND 

NSK IPB-NSK IPB+ 1NE I <2rK)*iNEI (j»K) 

END 00 

POINT NOT FOUNU 

IF t lCHNli < I » 4 ) .Or . 1NE1 ( 2 1 JB ) *1NE I i 3 r JB ) ) I HEN 

URITE(o»*)* POINI CHANOF F RRLIR UN CHANUE NU. .1 
UR I TE( 6»* ) * POINI INDEX UU I UF BOUNDS* 

UKITE(6»*)* CHANOF AHURIED* 

IERR-1 
00 10 100 
END IF 

NSKIPB-NSKIF’B+ICHNG! 1 » 4 ) 

PERFORM CHANGE ACCORDING IU CHANGE MODE 
SPECIFICATION 

OU TO ( 20 » 40 » 60 » BO ) r i CHNG \ 1 • 'j ) 

WKITElofS) 'NOALiD CHANGE NUDE SPECIF 1C A I ION * 

UR I IE v 6 » ) * CHANGE Nil. » 1 
URITE(A»*>* CHANGE ABORTED* 

IERR-1 
GO 10 100 

MOVE POINT B IU POINT A 
0 00 L-l » 3 

COORDCNSKIPBrLf JB ) -CUURIJ ( NSK1PA / L » JA) 

END DO 
GO TO 100 

MOVE BOTH POINIS IU AN AVERAGE VALUE 

*0 XAVE- ( COORD ( NSK 1 PA » 1 » JA ) +CUURLH NSK 1 PH t 1 t JH> )/2. 

< AVE- ( CUURU ( NSK J PA » :? * JA ) +CUURD l NSK1PB » 2 » J B > ) / 2 . 

ZAVE - ( COURO ( NSK IPA » o » JA ) +CUUKU ( NSK1PB » j » JB > ) / *2 . 

C 

COURO ( NSK IP A * 1 » JA ) -XAVE 
COURO ( NSK1PB t 1 f JB ) -XAVF 

A-G8 


c 

c 

c 

60 


C 

c 

c 

8Q 


950 


100 


FORTRAN 

* 


COORD ( NSK 1 PA r 2 r JA ) — Y AVE 
COORD ( NSKIPB* L! » JB > -YAVE 
COOKD i NSKIPA » 6 » JA ) -ZAVE 
COORD ( MSKIPB *3* JB) -ZAVE 
00 10 100 

MOVE POINT A TO POINT B 
DO L-l » 3 

COORD ( NSKIPA * L * JA > -COORD ( NSKIPH » L * JB ) 

END DO 
GO TO 100 

SPECIFY VALOE COMMON TO BOTH POINTS 

URITEvofTc) 'ENTER X»Y*Z VALOE FOR CHANGE NO. '» I 
IF ( NTERM . EU . ) UR1TE(6*V50> 

IF (NTERM.EQ.3) URlTETo**)' ' 

FORMAT (/) 

READ ( 5 * * » ERR-bO ) XAVE , Y AVE » ZAVE 
COORD ( NSKIPA » 1 * JA ) ^XAVE 
COORD ( NSKIPB * 1 : JB)^XAVE 
COORD ( NSKIPA *2* JA ) -YAVE 
COORD ( NSKIPB * 2 * JB ) -YAVE 
COORD ( NSK I P A - o * JA ) -=ZAVE 
COORD ( NSKIPB » J * JB ) -ZAVE 
CONTINUE 
END DO 
RETORN 
END 
STOP 


ORIGMAL PACE !3 
OF POOR QUALITY 
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ORIGINAL : : 13 

of poor o’ rr/ 

SUBROUTINE RECNU < CUOKU » NN^.1 » I NET f NTERM f I NAM f I 1ILF »N'1 11 ) 

RECORD 3-D GEOMETRY CHANGES IN A FILE 

PROGRAMMED 23 MARCH 1V82 M.C. WITTE 

FOR USE WITH PROGRAM M0D3D 

DIMENSION COORD < 200 f 3 f 60 > f INEY < 3 f 60 ) 

CHARACTERS CUM f INAM*13 f NWNAM*13 f N I I I < 60 > *60 r IDUM*2 
1 fTITLE*S0 

WRITE < 6 f # ) ' REPLACE FILE OR CREATE NEW I- ILEf < REP f NEW) ' 

IF ( NTERM « EG! • 4 ) WRITE(6f950) 

IF ( NTERM . EQ . 3 ) WRIIE(6f*>' ' 

50 FORMAT ( / ) 

READ ( 5 f 900 ) COM 
FORMAT ( A > 

IFCCOM.EQ* 'NEW ) THEN 

WRITE (6f#) ' ENTER NEW FILE NAME (13 CHARS WITH EXTENSION)' 
IF ( NTERM . EQ < 4 ) WHIYE(6f950) 

IF ( NTERM 4 EQ . 3 ) WRHE(6f*>' 

READ ( 5 f 900 ) NWNAM 
END IF 

OPEN ORIGINAL FILE 

IF(COM.EQ. 'REP' > THEN 

0PEN(UNIT=1fFILE=1NAMfS1 ATUS='OLD' ) 

END IF 

OPEN NEW FILE 

IF(COM.EQ. 'NEW' ) I HEN 

OPEN < UN IT=2 f F1LE=HWNAM f SI A1 US^ ' NEW ' ) 

ELSE 

QPEN<UNIT=2fFILE=INAMfS’I AlllS-'NEW ' ) 

END IF 

WRITE INTO NEW FILE 


WRITE FILE TITLE 

WRITE ( 2 f 900 ) 1 1TLE 

WRITE NETWORK DATA 

DO K=1fNNET 
910 FORMAT <I4f14fA) 

WRITE ( 2 f 910 > I NET ( 3 f K ) f I NET ( 2 f K ) f NT I V < K ) 
LE.MD=INET(3fK)*INEK2fK) 

DO J=1fLEND 

WRITE(2f920)CU0RD( Jf IfK) f COORD ( Jf2fK) fCOURD ( J f 3 f K ) 
920 FORMAT ( 3F20 « 5 ) 

END DO 
END DO 
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ORIGINAL PAGE ft 
OF POOR QUALITY 

100 CLOSE (UNI 1=2) 

IF (COM . EQ . ' REP ' ) [HEN 

CLCSE ( UNIT=1 » DISP- ' DELEI E ' ) 

END IF 

C t 

RETURN 
END 

FORTRAN STOP 

* 



A. 2.4 Code For Program CRSFIL 


The following pages contain the code developed for the program CFIFIL. 
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CRtrIL CREATES A PRELIMINARY GEUMfcIRY HLt 
FOR INPUT III I HE SMITH-HESS GEOMETRY PANELING 
PRGCEDEURE 

CHARACTER*-* INPUT 

GET NTERM 

3TATUS-LIB$GET_FURE1GN( INPUT t >N) 

READ ( INPUT* 900) NTERM 
FORMA! (11) 

CALL URTCQNI NTERM) 

END 
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OF POOR QUALITY 


c 

c 


c 

c 

c 

c 


c 

10 


c 

c 

c 


950 


C 

C 

C 


C 

C 

c 

TO 

C 

C 

C_ 

30 

C 

C 

C 

too 

c 


SUBRGUI 1WH. WRT CUN (NTERM) 


THIS ROUITNE ALLOWS I HE USER HJ SELECT THE HE.THC.IIJ 
BY WHICH HE WISHES I (J CONSTRUCT A PRELIMINARY 
GEOMETRY MLt 


WRITE <6.40 ' 
WRITE ( 6 » * ) ' 
WRITE (6.40 ' 
WRITE < 6.4:) ' 
WRITE < 6 » 40 ' 
WRITE ( 6 » 40 ' 
WRI TEC6.40 ' 
WRITE < 6 . 40 ' 
WRITE ( 6 » 4: > ' 
WRITE < 6 » 4: ) ' 


ENTER THE CODE CORRESPONDING TO THE ME I HOD ' 
THAT YOU DESIRE' 

ENTER THE NEGATIVE OF THE CODE TO CONTINUE' 
A PREVIOUS GEOMETRY DEFINITION' 

t 

0 - ABORT ' 

1 - POINT BY POINT DATA ENTRY' 

'J INTERACTIVE CONE IGOR AT TON ' 

DEVELOPMENT ' 


READ METHOD CODE 

IF < NTERM . EO . 3 ) WRJTEvo.*)' 

IF < NTERM . EQ . 4 ) WRITE<o.?30> 

F0RMA1 </') 

READ < 5 » 4: . ERR-1G > 1C0D 

IF < ABS< I COD) *GT .2) GO TO 10 

IF< ICOU.EU.O) GO TO 100 

EXECUTE DESIRED METHOD 

GO TO < 40.30) .ABS< I COD) 

GO TO 10 


INPUT GEOMETRY POINT BY POINT 

CALL PTBYPT < NTERM. ICOD) 

RETURN 


INTERACTIVELY CONSTRUCT THE CONFIGURATION 

CALL INCON < NTERM . ICOD ) 

RETURN 


ABORT GEOMETRY DEFINITION 


RETURN 

END 


C 

r_ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

_CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCLCCCCC 

c 

c 

c 

SUBROUTINE PTBYPT < NT ERM . ICOD ) 

C 
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OF POOR QUALRY 


C GENERA i B CONFIGURATION GEOMETRY MLt BY 

C ACCEPTING POINT BY POINT INPUT BRUM USER 

- C 
C 

CHARACTER* 1 3 PB NAME » NET NAM ( 6 1 ) *60 . T I TLE*HO 

DIMENSION COORD ( 400 » 3 r 60 ) » 1NET (2*60) » ISTAT ( 400 » 2 t 60 ) , NUAKE ( 61 > 
L0GICAL*1 EX 
NNET-0 
C 

C ENTER PRELIMINARY GEOMETRY FILE NAME 

C 

10 URI TE ( 6 » * ) ' ENTER PRELIMINARY GEOMETRY FILE NAME (13 CHARS) ' 

IF ( NTERM . EQ . 3 ) UR1TE(6»*)' 

IF ( NTERM . fcU . 4 ) WRITE(6»950> 

950 FORMAT ( / ) 

READ ( 5 ? 965 » ERR=1 0 ) B’B NAME 
C 

C IF ADDING TO AN EXISTING F ILfc 

C 

IF< ICOD.LT.O) THEN 

[ NGUIRE (FILE-PB NAME » EXIST -EX ) 

IF (.NOT, EX) THEN 

WRITE(o»*) ' FILE DOES NOT EXIST' 

GO TO 200 
END IF 
C 

C READ FROM EXISTING FILE 

C_ 

OPEN ( UNIT-1 ? F ILE-PB NAME » ST AT US- ' OLD ' ) 

READ ( 1 r 965 ) TITLE 
965 FORMAT (A) 

DO K-l t 60 

READ (1» 955 » END- 15 ) 1NE I (2»K) » INET ( 1 » K ) » NET NAM ( K ) 

NNET-K 

955 FORMAT ( 2 1 4 » A ) 

LEND- 1 NET ( 1 »K ) *INET ( 2 » K ) 

DO J-l i LEND 

READ ( 1 » 960 ) CUURLi ( J » 1 » K ) » CUURU ( J » 2 » K ) » CUURD ( J 1 3 » K > » 

2 ISTAT ( J » 1 » K ) » 1ST A T < J »2 »K ) 

960 FORMAT ( 3F20 .5 » IX »21 1 > 

END DO 
END DO 

15 CLOSE ( UNIT-1 »U1SP=' DELETE' ) 

ELSE 

C 

C ENTER A FILE TITLE 

C 

20 WRITE ( 6 » * ) ' ENTER A DESCRIPllUE B ILfc lllLfc (80 CHARS)' 

IF ( NTERM . EU . 3 > URITE(6»*)' 

IF ( NTERM .EQ . 4 ) WRITE(6»950) 

READ ( 5 » 965 » ERR-20 ) TITLE 
END IF 
C 

C WRITE USER INSTRUCTIONS 

C. 

WRITE(o»*)' Bed in eritennsT network delta.' 

-,WRITE(6f*) ' Enter * UU J I * when fnnsheuior "A HUH I* to' 






A-65 




iii a n cj u n n n n n n n n n n n n n n n n o n n 


WRITE ( 6 » 40 ' 
WRITE (6 » 40 ' 
UR I Te ( 6 » *) ' 
URITE(6»40 ' 


URICiilvAL PAGE 15 

OF POOR QUALITY 

to termxndte pi'ocedwuie' 

enter -99V . ♦ -999 . » -VV9 . to correct the xmeUxelely ' 
previuos entry' 


WRITE (6.40' DU YOU WISH ADDITIONAL INFORMATION ? ' 
IF ( NTERM • Ell . 3 > URITECo.*)' 

IF (NTERM.EU.4) UR1TE<6»950> 

CALL YESNU(NY) 

IF(NY.EQ.l) THEN 
WRITE ( 6 » 40 
WRITE < 6 . 40 
WRITE <6.40 
WRI TE ( 6 » '40 
WRITE < 6 » 40 
WRITE<6.40 
WRITE<6»40 
WRITE < 6 » *40 
WRITE ( 6 » '40 
WRI TE v 6 » 40 


END IF 


ENTER NETWORK II1LE 

0 WRITE ( 6 * 40 * ENTER NETWORK TITLE FOR NETWORK NO. * * NNE T +1 

IF (NTERM. EO. 3) UR1TE<6»40' 

IF ( NTERM .EQ . 4 ) WRITE < 6 r 950 > 

READ ( 5 » 965 » ERR=40 ) NET NAM ( NNET + 1 ) 

IF ( NET NAIT ( NNET +1)(1J1).EU.'A'> GO TO 200 
IF ( NETNAM ( NNET + 1 ) < 1 1 1 ) «EGl ♦ ' Q ' ) GO TO 100 
IF(NNET.EQ.oO) THEN 

WRITE (6.40 ' MAXIMUM NETWORK COUNT EXCEEDED' 

GO TO 100 
END IF 

ENTER I NET 

0 WRITE (6>X) ' ENTER NUMBER OF POINTS PER COLUMN* 

WRITE ( 6 » "40 ' FOR NETWORK *. NET NAM ( NNET +1 ) 

IF < NTERM .EQ . o ) URITE(6»40' 

[F ( NTERM .EQ . 4 ) URITE<o»950> 

READ ( 5 » 4c * ERR-50 ) I NET C 2 » NNET El ) 

G WR I TE ( A » 40 * ENTER NUMBER OF COLUMNS' 

URITE(A»40' FOR NE I WORK NETNAM < NNET + 1 ) 

[F( NTERM. EG. 3) UR1 T E < A # 40 ' 

IF (NTERM.EQ.4) WRIT E( A .950) 

READ ( 5 » # » ERR=55 ’• 1NET ( 1» NNET+1) 

WRITE (A» 40 ' ENTER O LF NETWORK *» NETNAM < NNET +1 >» ' 

WRITE (6. 40 ' IS A NONE IF T 1 NO COMPONEN I . ' 

WRITE ( 6 » 40 ' 

WRITE (of 40 ' ENTER 1 IF NETWORK '» NET NAM < NNET +1 >» ' 

WRITE! 6 1 4c ) ' IS A LIFTING COMPONENT.* 

WR ITE ( 6 » 40 * ENTER 0 OH 1 ? ' 

READ ( 5 » 40 JSTAI 
UR I T E < 6 » 40 ' 

INETCK--10 . 0 
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0R1GIN.' 3 ''- 

OF POOR 


IF< JSTAT.EQ.t > (HEN 
WRITEvof*) ' DO YOU WISH IQ DEFINE A WAKE ' 

WRITE(6f*> ' FUR I HIS COMPONENT * ' 

WRITE(6f*) ' ENTER YES OR Nil . * 

INETCK--10 .0 
CALL YESNO(NY) 

CFCNY.EQ.l) THEN 

“8 WRITE ( 6 f * ) ' ENTER THE NUMBER IJF WAKE POINTS TO BE DEFINED' 

WRITE (6.*) ' FOR EACH COLUMN . ' 

READ ( 5f * fERR- 58 ) NWAKE < NNET+t ) 

TNETCK-TNETf 2 fNNF.I +1 ) 

INET (2»NNET +1 1-1NET ( 2 » NNFT+l ) +NWAKF < NNF 1 +1 ) 

FND IF 
FND IF 
C 

C ENTER XfY.Z COORDINATES 

C 

NC- INET ( 1 » NNET +1 > 

NP« [NET < 2 f NNET + 1 ) 

IF(NC*NP.GT.400> (HEN 

WRITE (of*) ' MAXIMUM NUMHER OF POINTS IS 400' 

GO TO 50 
END IF 
M*t 
I-t 

DOWHILE (I.LE.NC) 

J-l 

ISTAT ( Mf 2f NNET + 1 ) -JST A1 
TE(J.En.l) ISTAT (M*1 fNNET+D-1 
IF(M.EU.l) LSI AT ( M » 1 f NNET + 1 ) -2 

60 WR I TE <6f*) ' FUR COLUMN NO. 'fIf' fNETUIJRK ' fNETNAM< NNET+t ) 

IF ( NTERM.EU.3) WRITE(of*)' 

[ F ( NTERM . EU ♦ 4 ) WR 1 I E ( A t V 50 ) 

DOUH n.FI (J.LE.NR) 

(STAT(Mf2fNNET+ 1 )^JSTAT 
TE(J.GT.l) 1ST A I ( M f l f NNE I + 1 ) — 0 
IF( J.EU.INEICK + 1 ) 1ST AT (Mf 1 fNNLT +1 )^4 
C IF( I .EQ.NC.ANU. J.EU.NP) 1ST AT ( M f 1 f NNET +1 ) -3 

65 WR I TE ( 6 f * ) ' ENTER XfYfZ - POINT MU. 'fJ 

IF (NTERM.EQ.3) WR1TE(6f*)' 

IF ( NTERM. EU. 4 ) WRITE(of950) 

READ ( 5 f <K f ERR-A5 > ( COORD ( M f h f NNE * +1 > f(\-If3> 

IF(ABS(CUORU(Mf 1 fNNEI +D+V99. ) .LT . .0001 ) I HEN 
IF(J.EQ.l) THEN 
.J-NP 
M-M-l 
ut-i 

go rn 60 \ 

ELSE 
J-.J-1 
M-M-l 
GO 10 65 
FND IF 
END IF 
M-n+i 
J^.J+1 
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END DU 
1-14-1 
END 00 

C UR[TE(of*> ' IS I H IS LAST NETWORK I HA I YIJIJ WISH * 

0 WRITE (or*) • 10 INPUT v c ENTER YES IJR NO ) . * 

C CALL YESNO(NY) 

_C IF(NY.bO.l) 1 HEN 

C I ST AT ( M-1 f 1 »NNE’I tl )- 4 

C END IF 

_ NNET-NNEf+t 

iso rn 40 

c 

C UK I IE INFO ro FILE 

c 

1 00 OPEN < ON I T- 1 f F ILE-^PF NAME » S I AT 1 JH- ' NEW * 1 

I ST ATT M-t * 1 1 NNE1 )*3 

C 

0 WRITE FILE TITLE 

C 

URTTE* 1 .965TTITLE 

_c 

C WRTTF. NETWORK DATA 

C 

no •< - l * NNET 

WRITE v 1 » 905 ) INF. I <2»K) * 1NET < 1 »K ) »NETNAM< K ) 

I END-INET(2»K)*INEI ( 1 »K) 

DO J-l f LEND 

WRITE ( l f 960)CUUKD< J» 1 *K> » >'OORD < J » 2 * K > » OUOKD < J » 3 » K ) » 1ST A1 < .J » 1 . K > . 
2 ISTAT ( J » 2»K ) 

END DO 
END DO 

CLOSE ( UN I T-l ) 

C 

’ 200 CONTINUE 

RETURN 
END 
C 
C 
C 

CCCCCCCCCCCCCLCCCCLCLCCCCCCCCCCLLLLLLLLCCCLCLLCLLLLCCCCCCCCCCCLL 

CCCCCCLLLCCCCCLLLCCCCCCCCCCLCCLCCCLCCLCCCCCCCCCCCCCCCLCCCCCCCCr.r. 

C 

C 

C 

SUBROUTINE INUiN ( N I ERM » ICUU ) 

C 

C GENERATE COMF1 (JURAT ION GEOMETRY F I Lk HY 

C INTERACT 1 NO UilH THE USER 

C 

WRITEvof*)' OPTION NO I AVAILABLE AT THIS I J MF ' 

RETURN 

END 
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APPENDIX B 


USERS' GUIDE TO THE ENGINE SIMULATION MODULE 


E.1 Program Instructions 

The Engine Simulation Module was developed to provide the user a means by which 
to include the aerodynamic/propulsive interactions in a potential flow solution of a STOL 
configuration. It accomplishes this by adding networks and boundary conditions to 
existing PAN AIR files to obtain plume simulation. Currently, the code is capable of 
handling a supersonic exhaust flow that is ejected at angles ranging from 0 deg to 
approximately 30 deg to the freestream flow. For convenience, the Engine Simulation 
Module is stored in a file named "ADDJET”. It is resident on the NASA Ames' VAX 
11/780 computer system and requires that an input file and a PAN AIR file be in the same 
subdirectory as the executable version of the program. The input file, which must be 
prepared by the user, is named 'ADDJET.INP'. Information in this fi,’e specifies where the 
plume is to be placed on the panelling arrangement and properties of the exhaust flow at 
the nozzle exit. The ADDJET.INP file must be prepared according to the following 
instructions. 

Record It TITLE 

Up to 50 alphanumeric characters may be used to define a problem title, which will 
appear in the output. 

Record 2: DUMP INDICATORS 

This card should normally be left biank or contain zeros. It may be used, however, 
to obtain a dump of the internal variables from selected subroutines by inserting a 
"1" in the appropriate column as indicated below: 

Col. Subroutine 

1 ADDJET 
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2 

3 

4 

5 

6 

7 

8 


READNET 

CENTER 

CLINE 

START 

EXTEND 

PBASE 

WAKE 


The user must refer to the fortran listing for information regarding the definition of the 
variables in the subroutine dumps. 

Record 3. PLUME LOCATION 


The plume-location information is entered in a namelist input format, which allows 
variables to be specified with one variable per line or several variables per line. In 
either case, the variables must be separated by commas. The following parameters 
must be specified in Record 3. 

Record 3A SPADATN 

This is the name of the upcoming data set and must be input exactly as shown. It is 
short for PAN AIR Data Namelist. The "$" character must not be placed in 
column 1. 

Record 3B OLDFIL 


This is the file name of the original PAN AIR file to which the plume is to be added. 
The file name must be enclosed within single quotes, with no leading or trailing 
blanks. Example: 


OLDFIL = 'FIGHTER. JOB’ 


Record 3C l.EWFIL 

The original PAN AIR file (OLDFIL) is not destroyed or altered by the Engine 
Simulation Module. Instead, a completely new file is created which contains the 
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ft 

basic panelling arrangement with the plume networks added. The user must specify 
the name of the new file through this parameter. Example: 

NEWFIL = 'FIGHTER.NEW' 

Record 3D ENAME 

This is the name of the network that forms the nozzle exit in the original PAN AIR 
file. It must correspond exactly with the name used in Record N2a of the PAN AIR 
input and must be a single network that closely approximates the exit area of the 
nozzle. The input data for this network will appear in the modified file but will be 
automatically nullified by the ADDJET code, which places a "*/" in columns 1 and 2 
of each line of data for that network. Example: 

ENAME = 'NOZZLE-EXIT* 

Record 3E ABUT (I) 

These parameters specify the networks in the original PAN AIR file that will abut 
with the plume. A maximum of 6 networks may be specified. 

ft 

ABUT (1) = 'NOZZLE-UPPER' 

ABUT (2) = 'NOZZLE-LOWER' 

ABUT (3) = 'NOZZLE-SIDE' 

Record 3F IEDGE(I) 

These terms specify which edges of the networks in Record 3E form the abutment 
with the plume. The values are integer numbers 1, 2, 3 or 4 and correspond to the 

PAN AIR nomenclature. Records 3E and 3F must have the same number of input 

■ 

points. Record 3F must be terminated by including a "$" character after the last 
input value. Example: 

iEDGE (1) = 2 
IEDGE (2) = 1 
IEDGE (3) = 4 $ 





Record 4. PLUME PROPERTIES 


The plume property information is also a namelist input format. It must be started 
«nd termirated with the ”$" character and variables must be separatee, by commas. 
The following parameters must be specified in Record 4. 

Record 4A jRAXINN 

This is the name of the upcoming data set and must be input exactly as shown. It is 
short for RAXJET Input Namelist. The ”$” character must not be placed in 
column 1. 

Record 4B XNPR 

Ratio of jet total pressure to freestream static pressure (nozzle pressure ratio). 
Example: 


EXPR = 2.5 


Record 4C EMJET 

Nozzle exit Mach number. The RAXJET code is limited to supersonic jets (EMJET > 
1.85). Example: 


EMJET = 2.00 


Record 4D TTJET 

Nozzle exit total temperature in degrees Rankin (deg-R). Example* 

TTJET = 530.0 

Record 4E 7HLIP 

Nozzle exit lip angle in degrets, (i.e. the initial angle between the plume boundary 
and the freestream direction). Example: 
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THLIP = 4.5 


Record 4F THETAJ 

The injection angle of the exhaust plume relative to the freestream direction. 
Example* 


THETAJ = 15.0 


Record 4G AMINF 

Ambient Mach number at infinity. The RAXJET code is restricted to subsonic 
external flow (.1 AMIN? .8) Example: 

AMINF = .20 


Record 4H JDUM 

This term is normally set to zero or it may be omitted from the input stream. If 
JDUM - 1, the ADDJET program will not call the RAXJFT subroutines to add the 
plume, but instead, will add a solid, cylindrical plume. Since the RAXJET code 
requires considerable time to execute, this option allows a run to be made in a few 
seconds of CPU time to verify that all input cards are being correctly processed 
before executing the full code. Example: 

UM = 1 


Record 41 IPRINT 

The output format for the unmodified RAXJET cede, which is discussed in 
Refeience 32, is obtainable from the ADDJET code along with one additional Dage 
of parameters computed for the inviscid plume. A user should not normally need 
this information, but there are several options available for handling this output. 

IPRINT = 0 Data not saved 

IPRINT = 1 Data saved in file "RAXJET.OUT* 
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[PRINT = 2 Data printed, then file is deleted 

IPR1NT = 3 Data printed and also saved in file "RAXJET.OUT" 

Since this is the last input parameter in Record 4, it must be followed with a to < 

terminate the RAXINN data set. Example: 

IPRINT = 1 $ 

The ADDJET code is easy to run and highly automated; however, there still remains 
a few items that the user must be aware of and manually correct if necessary. Several 
items to check are outlined below. 

o The plume and the plume wake networks generated by the ADDJET code are 
panelled irrespective of any networks that may be near or abut with the plume. 

Therefore, the user may need to manually define the abutment between the 
wing wake, for instance, and the plume and its wake. 

o Wake networks that may have been originally included in a panelling 

arrangement to form the closure of the nozzle must be manually removed. 

o The exit network is removed from the input data stream. Any specified 
abutments involving this network should be removed from the abutment, 
specifications list. 

o Since the exit network is removed, the ordering index is changed for all of the 
original PAN AIR networks that follow it. Therefore, the user must review the 
abutment specification li3t and the nexwork-images cards (PAN AIR records 
GE2, SF2, and FM8) and make any changes that may be required). 

B.2 Sample Problem 

The isolated nacelle model discussed in Section 5.5 is employed again in this v 

appendix in a sample problem. Input uata for this model are presented in this section, 
followed t-y a listing of the new PAN AIR file that was created by the program. The input 
file is described in the User's Guide to the Engine Simulation Module (Appendix B.l), and 
^ome comments regarding the output file are presented in this section. 
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The job control language (JCL) required to submit a PAN AIR file to *he CRAY 
computer was contained within the same file as the original PAN AIR input. These 
control cards are automatically transferred to the output file as shewn, along with all 
comment cards preceeding the first readable card of the original PAN AIR file. A banner 
is placed immediately ahead of the "BEGIN GLOBAL DATA" card of the output file to 
direct attention to the fact that plume networks have been added. Within this banner, the 
parameters specified in the input file are printed so the user can identify the source file 
of the original PAN AIR data and also the properties of the simulated exhaust plume. 

Note the characters "/ADDJET" that are placed to the right-hand side of the banner. This 
designation is placed on every line that is entered or modified by the ADDJET code so 
that all file alterations can be easily identified. 

After the initial banner, the next occurence of a modified card in this sample 
problem is at the nozzle exit (NETWORK = EXIT - 4). Although these cards are nullified 
by the ADDJET code, they are included in the data stream for documentation. No cards 
are ever removed by the ADDJET code. 

The plume segments follow the last network in the original PAN AIR file. This input 
will consist of typical coordinate data to define the panel comer points and a set of 
velocities to represent entrapment. It is noted that entrainment is indicated by a 
negative velocity normal to the panel center points. The last two sets of input cards 
generated by the ADDJET code are for the plume base and for the wake that emanates 
from the base of the plume. All cards in and below the Geometric Edge Matching section 
are copied to the new file without any changes. 


B.3 Program Description and Listings 

The structure of the Engine Simulation Module, Figure B~l, illustrates the 
relationship between the 'arious subroutines in the program. The function of each 
subroutine is briefly discussed in the following statements. 

ADDJET - 

This is the master control for the Engine Simulation IV. dule. It reads the data from 
the RAXJET.INP file, opens the necessary files for output, and calls the appropriate 
subroutines to execute the remainder of the code. 
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READNET - 

This subroutine starts at the current position of the PAN AIR file and reads records 
until all the information for the next network is obtained. The task of this subroutine is 
complicated by the fact that PAN AIR input is unformatted and is normally read by a data 
management system that is not available on the NASA VAX system. 

CENTER - 

This subroutine is called immediately after the nozzle exit network data are read by 
subroutine READNET. It uses these data to compute the geometric center of the plume 
at the X-station where it abuts the nozzle exit. It abo checks to determine if the piume 
network will abut either or both of the planes of symmetry at Y = 0 and Z = 0. 

CLINE - 

T , ! s subroutine computes the coefficients of a second-order equation that defines 
the path of the plume centerline. The initial jet injection angle is accounted for. 

START - 

This subroutine defines the coordinates for the edge of the plume that abuts the 
soiid networks. It accomplishes this by determining the coordinates of the solid network 
edges that abut the piume (as specified in the input) and defining the plume edge for exact 
corner point matching. 

RAXSUB 

Thi3 subroutine allows the ADDJET code to be executed without calling the 
RAXJET subroutines. It returns the characteristics for a solid, cylindrical plume and 
allows the remainder of the code to run with minimal CPU time. 

RAXMAIN - 

This subroutine was originally the controlling subroutine for the unmodified RAXJET 
code. It has been modified for use in the ADDJET code by adding (1) common blocks to 
transfer variables between the ADDJET code and the RAXJET code, and (2) statements 
required to open and close the various output and scratch files. 


INPT - 

This subroutine was also part of the original RAXJET code. It has been modified for 
use in this code by changing the source from which it requests the user suoplied input 


variables. Rather than read an input file, it obtains the input values from the file 
RAXJET.INP data or from subroutine INPT2. 

INPT2 - 

This subroutine is called Dy INPT. It presets many of the parameters that are 
normally specified by a user to values that are proper for a low-speed analysis, thus 
relieving the user of the chore of making these selections. 

PANEL - 

Subroutine PANEL was written to convert the RAXJET-computed variables to a 
form that could be used in the remaining subroutines of the ADDJET code. The primary 
function is the integration of radii of the equivalent and inviscid plume shapes to obtain 
inflow velocities normal to the inviscid plume boundary. 

EXTEND - 

This subroutine receives the piume coordinates along the abutment with the solid 
networks, the plume centerline path, the plume expansion characteristics, and 
entrainment factors. From this information, it computes the coordinates of the panel 
corner points for a 3-dimensionaJ plume and the inflow velocities at the panel center 
points. 

CAL,DER - 

These subroutines perform a spline curvefit that is used in interpolating between 
data points in subroutine EXTEND. 

PBASE - 

This subroutine computes the data for the plume base. 

WAKE - 

This subroutine computes the data for the plume wake. 

CREATE - 

This subroutine controls the creation of the new PAN AIR file. It reads the oid file, 
determines wnere the new or modified records should be, and calls the appropriate 
subroutines to make the actual insertion. 
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READTTL - 

This subroutine is used by CREATE to determine the title of the upcoming network 
in the original PAN AIR file. 

BLKEXIT - 

Subroutine BLKEXIT is called by CREATE to nullify the cards in the network 
defining the original nozzle exit. 

ADDPLU - 

This subroutine is called by CREATE to add records to the new PAN AIR file for the 
plume networks. 

ADDPLBA - 

This subroutine is called by CREATE to add records to the new PAN AIR file for the 
plume base networks. 

ADDWAKE - 

This subroutine is called by CREATE to add the wakes that emanate from the plume 

base. 
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original p a 0 - 

OF POOR QUALff 


SAMPLE PROBLEM INPUT 


ISOLATED NACELLE PROBLEM <NPR= B.47) 
1111111111111111 
SPADATN 

OLDFIL - 'NACELLE. JOB' . 

NEUFIL = 'NACELLE. PLU' » 

ENAME = 'EXIT-4' » 

ABUT ( 1 ) ^ 'NOZZLE-3'. 

IEDGE ( 1 ) = 2 $ 

SRAXINN 

XNPR = 3.47. 

EMJET * 1.31* 

TTJET = 060. » 

THLIP = 2.05. 

THETA J = 0.0. 

AMINF = 0.6. 

JDUM ■ 0. 

IPRINT =1 S 
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ORIGINAL PAGC V* 
OF POOR QUALITY 


SAMPLE PROBLEM OUTPUT FILE 


PANAIRrMICR. 

USERfFAEGDH. YSAW. 

JOfif JN=GENDYNf 1 300 t US=- E AE GDH . NA-HOWELL * PANA 1H-HUN . 
ACCOUNT . AC=G32V3E 0 . 

ACCESS » DN=*PROL r PUN- REMO I E P . ID*=AMESL 1 B . 

REMOTE » E AE.UUH » YSAW « G32V3F 0 * DN = *OUI . DEE Eri » 1 D l - STA I CP . 
RELEASE *DN=»PRUl . 

ACCESS <nN=TEMPfPUN= PAPRUCS. ID-PANAIR) 

COPYD( lOEMP.ri *PRUC) 

RELEASF ( nN=TFMP ) 

REUIND(DN=*PROL) 

FINDT F < A=2SW . 1 D ■ F AEODH t KfcCl N t PPP . TEMP > 

REWIND (UN F ( 10) 

DISPOSF (DN=ET10> 

AUDIT. 

**EOR** 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

V 

%/ 

%/ 

%/ 

%/ 

%/ 

*/ 

%/ 

%/ 

*/ 

%/ 

%/ 

*/ 


DIP INPUT - FILE NACELLE. JOB 


ISOLATED NACELLL MODEL 


5 ADDITIONAL CUTS HAUE BEEN ADDED NtAP THF 
KNEE OF THE NOZZLE 


THIS INPUT REPHESENIS ONLY ONE FOURTH OF TH'^ 
COMPLEIE LUNF 1GUKAI ION. 


*/ 
t > 
*/ 
*/ 
*/ 
*/ 
*/ 
%/ 
* - 
*/ 
%/ 
* / 
*/ 
*/ 
* 


BASED ON NASA (P 1/66 ! ' CONFIGUHA I 1 ON D-1.22-L 
5-NETWORKS 


1 > FORWARD CONIC StCllUN 6 FANELS 

2) CYLINDRICAL Ml D-SEL1 ION 27 PANELS 

3) BOA I I Alt 78 PANELS 

4) PLUME . 126 PANELS 

5) PLUME BASE 6 PANELS 

AlCYl 1NDR1CAL WAKE 6 PANELS 


TOTAL: 249 PANELS 


B-13 


ORIGINAL FAG- IS 
OF POOR QUALfW 


x/ 


*/ 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXf ************* ***** XXXXXXXXXX 

/ADDJET 

X/ 

XXXXXXXXXXXXf ..mXiXXXXXXXXXXXXXX xx*xx«* ** *. xX* XXXXXXXXXXXXXXXXXXXXX 

/ADDJET 

X/ 

XXX 


XXX 

/ADD JE 1 

X/ 

XX* 

THE PLUME SIMULATION IN THIS PAN AIR 

xxx 

/ADDJET 

X/ 

XXX 

FILE WAS INCORPORATED WITH THE 

XXX 

/ADDJE I 

%/ 

XXX 


xxx 

/ADD JE 1 

X/ 

XXX 

ADDJET CODE 

X4X 

/ADDJET 

X/ 

XXX 


xxx 

/ADDJET 

X/ 

X** 

WRIT l EN BY 

xxx 

/ADDJET 

*/ 

XXX 

GEORGE A. HOWELL AND ISHWAR L. BHnTLLLY 

xxx 

/ADDJET 

X/ 

XXX 

GtNfRAL DYNAMICS CORPORA 1 IUN 

*** 

/ADDJET 

X/ 

XXX 

FORT WORTH DIVISION 

xxx 

/ADDJET 

X/ 

XXX 

FORT WURTH. TEXAS 

xxx 

/ADDJE 1 

X/ 

XXX 

PHONE (817) /63-1161 

xxx 

/ADDJE l 

X/ 

XXX 


xxx 

/ADDJE 1 

*/ 

XXX 


xxx 

/ADDJET 

X/ 

XXX 

THE 2-D JET CHARACTERISTICS WERE COITPUiED 

xxx 

/ADDJET 

X/ 

XXX 

WITH THE RAX JE 1 PLUME MODELING CODE DEVELOPED 

xxx 

/ADDJE i 

X/ 

XXX 

BY RICHARD G. WILMOTH 

xxx 

/ADDJET 

X/ 

XXX 

NASA/LANGLEY RESEARCH CEMVeR 

xxx 

/ADDJET 

X/ 

XXX 


xxx 

/ADDJET 

X/ 

x*x 


xxx 

/ADDJET 

X/ 

X (X 

ISOLATED NALELLE PROBLEM <NPR* 8.4/) 

xxx 

/ADDJE 1 

*/ 

XXX 


xxx 

/ADDJET 

*/ 

XXX 

ORIGINAL FILE * NACELLE. JOB 

xxx 

/ADDJET 

X/ 

XXX 

NLW FILE NACELLE. PLU 

xxx 

/ADDJET 

*/ 

XXX 


(XX 

/ADDJE 1 

%/ 

XXX 

NOZZLE PRESSURE RATIO = 8.470 

xxx 

/ADDJET 

X/ 

XXX 

JET EXIT MACH NUMBER - 1.310 

xxx 

/ADDJET 

X/ 

XXX 

JET tXIf itMPERAIURE J60.0 

xxx 

/ADDJET 

X/ 

XXX 

NOZxLE LIP ANGLE 2.00 

xxx 

/ADDJET 

*/ 

XXX 

JE 1 DEFLECTION ANGLE = 0.00 

xxx 

/ADDJET 

X/ 

XXX 


xxx 

/ADDJET 

%/ 

XXX 


xxx 

/ADDJET 

X/ 

XXX 


xxx 

/ADDJET 

X/ 

XXXXXXXXXXXXX**X:XXXXXXXX»XXXXXkX:X:X:XX'XX*XXXXXXXXXXXXXX»XXXXXXX:XXXXXX 

/ADDJET 

*/ 

XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXX XXX **»:**XXXXXXXXXX**XX****X*X:*:XX 

/ADDJET 


x/ 

*/ 

BEGIN GLOBAL DATA 
PID * ISOLATED NALLLLt 

UID = BHATELEY /HOWELL GENERAL DYNAMICS Ml? V32 4811 
CONEIGUHAI iUN = FIRST » SECOND / I UU PLANES OF SYMMETRY. 

MACH - O.AOO. CALPHA - O.O. CBElA - 0.0/ RECORD G5 
ALPHA :■ 0.0 

SID =ZERO-DEGREt /G 6 

TOLERANCE 0.1 /G? 

SURFACE SELECTION UPPER /GtJ 

SELECTION OF VELULllY LUMPUlATluN* BCUNDARY-COND II 1 UN /GV 
PRESSURE CUEFF1C1ENI RULES ; 1SEN i ROPIC .SECOND-ORDER /012 

X/ 

CHECKOUT = DIP. 1.2.3. DUG . 1 . 2 , 4 . 0 /G17 

BEGIN NEIUURK DATA 

X/ THFSE ARF THE NF I WORKS FOR THE ISOLATED NACELLE. 

NETWORK NUSE-CONE-1 4 3 NE'I 

0.0000 0.0000 0.0000 


B-14 


ORIGINAL PAG- r J 
OF POOR QUALff/ 


0.0000 

0.0000 


0.0000 

0.0000 

0.0000 


0.0000 

0.0000 

0.0000 


0.0000 

15.2811 

0.0000 


3.8100 

15.2811 

1 . 9000 


3.2VV6 

15.2811 

3.2996 


1.9050 

15.2811 

3.8100 


0.0000 

30.5622 

0.0000 


7.6200 

30.5622 

3.8100 


6.5991 

30.5622 

6.5991 


3.8100 

30.5622 

7.6200 


0.0000 

TRIANGULAR PANEL TOLERANCE 

003 


BOUNDARY CONDITION = 1 

» UPPER 



NETWORK =NAC-A ID-2 

4 

10 

NEW 

30.5622 

0.0000 


7.6200 

30.5622 

3.8100 


6.5991 

30.5622 

6.5991 


3.8100 

30.5622 

7.6200 


0.0000 

40.0000 

0.0000 


7.6200 

40 . 0000 

3.8100 


6.5991 

40.0000 

6.5991 


3.8100 

40.0000 

7.6200 


0 . 0000 

49.0000 

0.0000 


7 - 6200 

49.0000 

3.8100 


6.5991 

49.0000 

6 .5991 


3.8100 

49.0000 

7.6200 


0.0000 

58.0000 

0 0000 


7 . 6200 

58.0000 

3.8100 


6.5991 

58.0000 

6.5991 


3.8100 

58.0000 

7.6200 


0.0000 

67.0000 

0 . 0000 


7.6200 

67-0000 

3.810C 


6.5991 

67.0000 

6.5991 


3.8100 

67.0000 

7 . 6200 


0.0000 

76.0000 

O.OOCA 


7.6200 

76.0000 

3.8100 


6.5991 

76.0000 

6.5991 


3.8100 

76.0000 

7.6200 


0.0000 

85.0000 

0.0000 


/ . 6200 

85.0000 

3.8100 


6.5991 

85.0000 

6.5991 


3.8100 

85.0000 

7 . 6200 


0.0000 

94.0000 

0.0000 


7.6200 

94.0000 

3.8100 


6.5991 

94.0000 

6.5991 


3.8100 

94.0000 

7.6200 


0.0000 

103.0000 

0.0000 


7.6200 

103.0000 

3.8100 


6.5991 

103.0000 

6.5991 


3.8100 

103.0000 

7.6200 


0.0000 

1 12.7760 

0.0000 


7.6200 

112.7760 

3.0100 


6.5991 

112.7760 

6.5991 


3. 8100 

112.7760 

7.6200 


0.0000 

TRIANGULAR PANEL TOLERANCE = . 

003 


BOUNDARY CONDITION 1 

.UPPER 



NETWORK =N0ZZLt-4 

7 

14 

NEW 


B-15 


ORIGINAL PAGE ft 
OF POOR QUALITY 


112. 7760 

0.0000 

7.6200 

112.7760 

1 .9722 

7.3604 

112.7760 

3.8100 

6.5991 

112.7760 

5.3882 

5.3882 

112.7760 

6.59 V 1 

3.8100 

112.7760 

7.3604 

1.9/22 

112.7760 

7.6200 

0.0000 

120.0000 

0 0000 

7.6200 

120.0000 

1 .9722 

7.3604 

1 20.0000 

3.8100 

6.5991 

120.0000 

5.3882 

5.3882 

120.0000 

6 . 5991 

3.8100 

120.0000 

7.3604 

1.9722 

120.0000 

7.6200 

0.0000 

128.0000 

0 . 0000 

7 . 62 O '- 

128.0000 

1.9722 

7.3604 

128.0000 

3 » 8100 

6. 5991 

128.0000 

5 . 3682 

5.3882 

128.0000 

6.5991 

3.8100 

128.0000 

/ .3604 

1 .9722 

128.0000 

7.6200 

0.0000 

133.0000 

0.0000 

7.6200 

133.0000 

1 . 9722 

7.3604 

133.0000 

3.8100 

6.5991 

133.0000 

5.3882 

5.3882 

133.0000 

6.5991 

3.8100 

133.0000 

7.3604 

1 . 9722 

133.0000 

7.6200 

0.0000 

136.0000 

0.0000 

7.6200 

136.0000 

1 . 9722 

7.3604 

136.0000 

3.8100 

6.5991 

136.0000 

5. 3882 

5.3882 

136.0000 

6.599 i 

3.8100 

136.0000 

7.3604 

1.9722 

136.0000 

7.6200 

0.0000 

137.1600 

0.0000 

7.6200 

137.1600 

1.9722 

7.3604 

137.1600 

3.8100 

6.5991 

137.1600 

5.3882 

5.3882 

137.1600 

6.59 V 1 

3.8100 

137.1600 

7.3604 

1 .9722 

137.1600 

/ . 62-»0 

0.0000 

138.3600 

0 . 0000 

7.5/00 

133.3600 

1 .959 3 

7.3121 

138.3600 

3.7850 

6 . 5558 

138.3600 

5 . 3028 

5.3528 

138.3600 

6.5558 

3 . 7850 

138.3600 

/ . 3 1 2 1 

1 . 9593 

138.3600 

7.5700 

0.0000 

139.4600 

0.0000 

7.4500 

139.4600 

1.9282 

7. 1961 

139.4600 

3.7200 

6.4519 

139.4600 

5.2679 

5.2679 

139.4600 

6.4519 

3. 7250 

139.4600 

7.1961 

1.9282 

139.4600 

7.4500 

0.0000 

140.5900 

0.0000 

7 . 2295 


original V 

OF POOR QuALH ' 



140.5900 

1.8711 

6.9832 



140.5900 

3.6147 

6.260V 



140.5900 

5.1120 

5.11 20 



140.5900 

6.2609 

3.6148 



140.5900 

6.9832 

1 .b711 



1*0 . 5900 

7.2295 

0.0000 



142.0000 

0.0000 

6 . 9200 



142.0000 

1.7910 

6.6842 



142.0000 

5 . 4600 

5.9V2V 



142.0000 

4.8932 

4. 8932 



142.0000 

5. 9929 

3.4600 



142.0000 

6.6842 

1 . /910 



142.0000 

6.9200 

0 . 0000 



144.0100 

0.0000 

6.4839 



144.0100 

1.6782 

6.2630 



144.0100 

3.2419 

5.6132 



14*. 0100 

4.5848 

4.3848 



144.0100 

5.6152 

3 2420 



144.0100 

6.2630 

1 .6782 



144.0100 

6.4839 

0.0000 



147.4400 

0.0000 

5.7360 



147.4400 

1.4844 

5.5406 



147.4400 

2.8680 

4.9673 



147.4400 

4.0560 

4.0360 



147.4400 

4 .9675 

2.8680 



147.4400 

5.5406 

1.4846 



147.4400 

5.7360 

0.0000 



150.8600 

0.0000 

4.9903 



150.HA00 

1.2916 

4.8203 



150.8600 

2.4931 

4.3217 



150.8600 

3.5287 

3.5287 



150.8600 

4.3217 

2.4952 



150.3600 

4.8203 

1.2916 



150.8600 

4.9903 

O.Ov/OO 



154.2900 

0.0000 

4.2424 



154.2900 

1.0980 

4.09/8 



154.2900 

2.1212 

3.6740 



154.2900 

2.9998 

2. 9998 



154.2900 

3.6740 

2.1212 



104. 2900 

4 . 0978 

1.0980 



154 . 29</0 

4.2424 

0.0000 


TR I ANGULAR KANtL 10LtKAMC.t = .003 



BOUNDARY CONDI! 1 UN 1 

1 . UPPER 



* / 
*/ 




/ADDJET 

*/ 




/ADDJE l 

*/ 

*v* ****»*»: *illl****«***l.****»r***«4 *.««**«« 

/ADD Jt l 

*/ 

*****V»*t*»**»*:*:*«:*.»***:S:l:* *****«***»*«*»»» *.«» ** *» tit* 

/ADDJE r 

%/ 

*4 


** 

/ ADDJET 

a/ 

** THE 

FOLLO'JTNb NtTUUNK HAS BEEN NULLIFIED tt 

/ADD JET 

*/ 

t* 

BY IHE 

ADPJt l CCU'b *« 

/ADDJET 

*/ 

*» 


** 

/ADDJET 

*/ 

Ufimiiiuutmttiminmuuttitimiimuou 

/AL.DJET 

*/ 

mtttiMimtttummtttmmmimmtitmittt 

/ADDJET 

*/ 




/ADDJE 1 

*/ 




/ADD Jt 1 

*/ 

NETUURK EXIT-4 

7 2 

NEU 

/ADDJET 


B-17 


» • r r»*“ •!"* 

4 . ‘ 

OF POOH QL v V.'. 


*/ 

154.2900 


0.0000 4.2424 

/ADD JET 

%/ 

154.2900 


1.0900 4.0978 

/ADDJkl 

X/ 

154.2900 


2.1212 3.6740 

/ADD Jk 1 

X/ 

134.2900 


2.V998 2.9998 

/ADD. JET 

*/ 

154.2900 


3.6/40 2.1212 

/ADD JET 

X/ 

154 . 2900 


4.0978 1.0980 

/ADD JET 

X/ 

154.2900 


4.2424 0.0000 

/ADD Jk 1 

X/ 

154.2900 


0.0000 0.0 

/ADD JET 

*/ 

154.2V00 


0.0000 0.0000 

/ADD JET 

X/ 

154.2900 


0.0000 0.0000 

/ADD JET 

X/ 

154.2900 


0.0000 0.0000 

/ADDJkl 

X/ 

154.2900 


0.0000 0.0000 

/ADD JJ- 1 

■*/ 

154.2900 


0.0000 0.0000 

/ADD JET 

*/ 

154.2900 


0.0000 0.0000 

/ADD Jk 1 

• /TRIANGULAR PanEL T ULfcRAfjCE = .003 

/ADD JET 

C/BOUNDakY UUMDlllUH 

= 1» UPPER 

/ADD It- • 

* '*/ 




/ADD Jk 1 

*/*/ 




/ADD JET 

*/ 




/ADD Jk 1 

X/ 




/ADD JE1 

*/ 


/ADD JET 

X/ 

XXXXXtXXXttXXXXXXXtXXXXXtXXXXttXXXXtXXXXXXXXXXXXt IXXX 

/nDOJET 

*/ 

*» 


11 

/ADDJET 

*/ 

21 

THE ► UL1.UU1NU Hk 1 WORKS SIMULATE THk fcXHAUSl *1 

/ADD Jk i 

*/ 

** 


PLUMt AND IHk UU1KL0U VELOCITIES ** 

/ADDJET 

*/ 

XX 


l* 

/ADDJET 

*/ 

xxxxxxxxxtxxxxxxxxxxaxxxxxxnxxxttttttxxrttxt&xxxxxxxt 

/ADDJET 

*/ 

xxxxxxxxtxxxxtxttttxttxxxxxxxxxxxxxtxxtxxxxxttxxxxuxx 

/ADD Jk 1 

*/ 




/ADD JE l 

*/ 




/ADDJET 

NETWORK- PLUKk-SfcbKKNl 

-1 7 11 

/ADDJET 

154 

.290 

0.000 

4.2*2 

/ADDJkl 

154 

.290 

1 .098 

4.098 . 

/ADDJET 

154 

.290 

2.121 

3.674 

/ADDJkl 

154 

.290 

3.000 

3.000 

/ADDJkT 

154 

. 290 

3 • 6?4 

2.121 

/ADDJkT 

15* 

.290 

4.09b 

1.098 

/ ADDJk l 

154 

.290 

4.242 

0.000 

/ADDJET 

156 

.399 

0.000 

5.088 

/ADDJkl 

156 

.399 

1.31' 

4.915 

/ADDJk 1 

156 

.399 

2.344 

4.406 

/ADDJET 

156 

.399 

3.598 

3.598 

/ADDJk 1 

156 

.399 

4 . 406 

2.544 

/ADDJET 

156 

.399 

4.915 

1.317 

/ADDJET 

156 

.399 

5.080 

O.COO 

/ADDJET 

150 

. 50b 

0.000 

j.6Hl 

/ADDJET 

158 

.50b 

1.4/0 

5.488 

/ADDJET 

158 

.508 

2.84; 

4.920 

/ADDJk 1 

158 

.50b 

4.017 

4.01/ 

/ADDJET 

158 

.50b 

4.V20 

2.84: 

/ADDJET 

158 

.508 

5.488 

1 . *V0 

/ADDJkT 

158 

.50b 

5.681 

0 . 000 

/ADDJET 

160 

.61? 

0 . 000 

6.127 

/ADDJk 1 

160 

.61? 

1 .586 

5.918 

/ADDJkl 

160 

.61? 

3.063 

5.306 

/ADDJET 

160 

.617 

4.332 

4.332 

/ALiIUk 1 

160 

.61? 

5.306 

3.063 

/ADDJk 1 


B-1S 



160.61/ 

5.918 

1.386 

160.61/ 

6.12/ 

0.000 

162.726 

0.000 

6.442 

162.726 

1.667 

6.222 

162.726 

3.221 

5.578 

162.726 

4.335 

4.555 

162.726 

5.5/8 

3.221 

162.726 

6 . 222 

1 • 667 

162.726 

6.442 

0.000 

166.944 

0.000 

6.687 

166.944 

1.731 

6.45V 

166.944 

3.344 

5.791 

166.944 

4 . 72V 

4.729 

166.944 

5.791 

3.344 

166.944 

6.459 

1.731 

166.944 

6.687 

0.000 

171.163 

0.000 

6.466 

171.163 

1 .64 

6.246 

171.163 

3.233 

5.600 

171.163 

4.572 

4.372 

: 71,163 

5 . 600 

j . 233 

171.163 

6.246 

1.674 

171.163 

6.466 

0.000 

179.399 

0.000 

6.001 

179.399 

1.553 

5 . 796 

179.399 

3.000 

5.197 

179.399 

4.243 

4.243 

179.39V 

5.197 

3.000 

179.399 

5.796 

1.553 

179.599 

6.001 

0.000 

1 88 . 035 

0.000 

5.807 

188.035 

1.503 

5.609 

188.030 

2.903 

5 . 02 V 

188.033 

4.106 

4 .106 

188.035 

5.02V 

2. 903 

188.033 

5.609 

1.503 

188.035 

5.807 

0.000 

196.472 

0.000 

3.75/ 

196.472 

1 .490 

5.361 

196.472 

2.8/V 

4.986 

196.472 

4.071 

4.071 

196.472 

4.986 

2.879 

196.472 

5.561 

1.490 

196.472 

5.737 

0.000 

204.908 

0.000 

5.718 

204.908 

1.480 

5 . 523 

204.908 

2.859 

4.952 

204.908 

4.043 

4.043 

204.906 

4.932 

2.859 

204.908 

5.323 

1.480 

204.908 

5. /16 

0.000 


TRIANGULA* PANfcL TOLERANCE = .00.1 
BOUNDARY CUMDlllON = 2 » UPPER 
SPECIEIED l-LUU 
TERM =• 1 

POINTS - ALL * 0.0 

*/ 


B-19 


/ADD JET 
/ADDJtl 
/ADDJtl 
/ ADDJET 
/ADDJt' ! 

/ADDJtT 
/ADDJt l 
/ADDJt ( 

/ADDJET 

/ADDJt I 

/ADDJET 

/ADDJET 

/ADDJt l 

/ADDJET 

/ADDJET 

/ADDJtl 

/ADDJET 

/ADDJt I 

/ADDJt I 

/ADDJtT 

/ADDJt I 

/ADDJt I 

/ADDJET 

/ADDJt I 

/ADDJET 

/ADDJt I 

/ADDJt I 

/ADDJET 

/ADDJET 

/ADDJET 

/ADDJET 

/ADDJET 

/ADDJET 

/ADDJET 

/ADD Jtl 

/ADDJET 

/ADDJt I 

/ADDJtl 

/ADDJET 

/ADDJt I 

/ADDJET 

/ADDJtT 

/ADDJET 

/ADDJET 

/ADDJtl 

/ADDJET 

/ADDJET 

/ADDJt I 

/ADDJET 

/ADDJET 

/ADDJtl i 

/ADDJtT 

/ADDJET 

/ADDJt I 

/ADDJET 

/ADDJET 

/ADDJET 







L 


c*?rfr. . / 7 "J 

of I'-y* 1 4 


4 


X/ 




/ADDJE 1 

X/ 

THE FOLLOWING 

LiAlA ARE THE OUTFLOW VELOCITIES 

/ADD JE1 

X/ 

THROUGH THE PANELS OF THe. PLUME NE 1 WORK 

/ADD JET 

POINTS - CENTER 


/ADD JET 


-0.037 

-0.03/ 

-0.03/ -0.03/ -0.037 -0.03/ 

/ADD JE 1 


-0.026 

-0.026 

-0.026 -0.026 -0.026 -0.026 

/ADD JET 


-0.022 

-0 . 022 

-0.022 -0.022 -0.022 -0.022 

/ADD JE T 


-0.029 

-0.029 

-0.02V -0.02V -0.02? -0.02V 

/ADD JET 


-0.036 

-0.038 

-0.03e -0.038 -0.038 -0.038 

/ADD JET 


-0.042 

-0.042 

-0.042 -0.042 -0.042 -0.042 

/ADDJET 


-0.048 

-0.048 

-0.048 -0.048 -0.048 -0.048 

/ADDJET 


-0.043 

-0.043 

-0.043 -0.044 -0.043 -0.043 

/ADDJET 


-0.036 

-0 .036 

-0.036 -0.036 -0.036 -0.036 

/ADDJET 


-0.032 

-0.032 

-0.032 -0.032 -0.032 -0.032 

/ADDJET 

X/ 




/ADDJET 

X/ 




/ADDJET 

*/ 




/ADDJET 

X/ 




/ADD JE1 

%/ 


XXXXXXXXXXXSXXXXXXXxXXXXf.XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

/ADDJET 

*/ 


XXXXXXXXXXXXXXXXXXXXXX* XXXXXXXXXXXXX XXXXXXXXXXXXXX * X* 

/ADDJET 

»/ 


** 

XX 

/ADDJET 

X/ 


XX THE 

FOLLOWING NEl WORKS FORM THE BASE XX 

/ADDJE f 

X/ 


XX 

OF THE EXH'iUSl PLUME XX 

/ADDJET 

X/ 


XX 

XX 

/ADDJET 

X/ 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

/ADDJET 

X/ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxx 

/ADD JE1 

%/ 




/ADDJET 

*/ 




/ADDJET 

NETWORK =PLUMt- RASE-SEG- 

1 7 2 

/ADDJET 


204,908 

0.000 

5.718 

/ADDJET 


204.908 

1.480 

5.523 

/ADDJET 


204.908 

2 . 8GV 

4.952 

/ADDJE l 


204.908 

4.043 

4.043 

/ADDJET 


204.908 

4.952 

2.859 

/ADDJET 


204.908 

G.G23 

1.480 

/ADDJE l 


204.908 

G.718 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJET 


204.908 

0.000 

0.000 

/ADDJE 1 

TRIANGULAR 

PANEL TOLERANCE .003 

/ADDJET 

BOUNDARY LUND1T ION -- 4 

* 8 9 1 6 9 s5 

/ADDJET 

SINGULARl IY 

TYPES = SA 

9 DA 

/ADDJET 

X/ 




/ADDJET 

#/ 



• 

/ADDJET 

X/ 


XXXXXXXXXXXXXXXXXXX XXX XXXXXXXXXXXXXXXXXX XXXXXXXXXXXXX 

/ADDJET 

%/ 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* * xxxxxxxxxx 

/ADDJE l 

X/ 


XX 

XX 

/ADDJET 

X/ 


XX THE 

FOLLOWING NEl WORKS FORM THE WAKE X* 

/ADDJET 

%/ 


XX 

FROM THE EXHAUSI PLUME XX 

/ADDJET 

X/ 


XX 

XX 

/ADDJET 

%/ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

/ADDJET 

X/ 


XXXXXXTtXX*:(c*XX**X**X*X.tt.*XXJt**X:|c**X:K:**XX*XXX:|c*XXX*XXXX 

/ADDJET 

%/ 




/ADDJE 1 


r 

- 
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I 


t/ 

NETUORK=PLUHE-UAKE-SEb-l 2 7 


204.908 

0.000 

3.718 

437.997 

0.000 

5.718 

204.908 

1.480 

5.523 

437.997 

1.480 

5.523 

204.908 

2.859 

4.932 

457.997 

2.85 V 

4.V52 

204.908 

4.043 

4.043 

457.997 

4.043 

4.043 

204.908 

4.952 

2.85V 

457.997 

4.952 

2,859 

204.908 

3.323 

1.480 

437.997 

5.523 

1.480 

204.908 

5.718 

0.000 

457.997 

5.718 

0.000 


UAKE PLOW PROPERTIES 1 Ab 
BOUNDARY CONDITION * 1 »' UAKE 1 

BEGIN GEOlit I R J C EUbE MATCHING 
ABUTMENT - 2.2 ENURE EDbE + 

= 3.4 ENTIRE EDGE 

*/ 

*/ 

%/ 

BEGIN FLOU PROPER I 1ES DATA 
SURFACE FLOU PROPER ilES CASE-1 
NETUORK-IMAGES \-2 3*4= 0-6 
POINTS = CENlEK 
PRINTOUT * 1.2.8.13.16 
*/ 

*/ 

FORCES AND MOMEN S 

REFERENCE PARAMETERS = SR. 182.0. BR. 1.0. 

AXIS SYSTEM = RCS . 0 . . 0 . . 0 . . UAS. 0..0..0. 

PRINTOUI “ NETUORK. CONPlbURAilON 

CASE = CASE-1 

NETUORK-IMAGES -1-2 3 

SURFACE = UPPER 

END PROBLEM DEFINITION 

**EOR*# 

**EOF** 


/ADDJET 
/ADDJET 
/ADDJET 
/ADDJET 
/ADD JE I 
/ADDJET 
/ADDJET 
/ADDJE ! 
/ADDJET 
/ADDJET 
/ADDJET 
/ADDJET 
/ADDJET 
/ADDJET 
/ADDJET 
/ADDJE l 
/ADDJET 
/ADDJET 


CR. 1.0 


FOR , 


nnn n o nnnnn o n on 


PROGRAM ADLUET 


C 

c 

c 

c 

c 

c 

c 

c 


ORIGINAL P/\G£ tS 
OF r j OOR QUALITY 


PROGRAM ADD JET DEVELOPS THE OUTPUT FROM WILMOTH'S RAXJE1 CODE 
INTO NETWORKS THA I CAN BE USED BY PANAIR . ADD Jh T IS THE MASTER 
CONTROL SUBROUTINE FOR THIS PROGRAM. 


COMMON /TITL/ I ITLL 
COMMON /DUMP/ IDKP(30) 

COMMON /PADAT/ 01 DT IL r NEWT IL ? ENAME r ABUT ( 6 ) r I EDGE ( 6 ) 
COMMON /RAXIN/ XNPRrEKJb f > TT JET r THL IP » THETA J r JDUM r IPRIN1 
1 » AM INF 

COMMON /NETWORK/ NETWORK r M r N «■ X ( 20 r 20 ) » Y < 20 r 20 ) r Z ( 20 r 20 ) » 
1 BC t IFLAG 

COMMON /CLINE/ XC r YC t ZC r A , B f C r EAREA » D I A 
COMMON /PLUME/ MR ( 6 ) r NP ( 6 > r XP ( 6 r 20 t 20 ) t YP ( 6 r 20 » 20 ) r 
1 ZP(6»20r20) fUP(6»l?» 19) 

COMMON /RAXOUT / KM ‘1 S t XST A ( 30 ) r XRAT 10 ( 30 ) » XVN ( 30 ) 

COMMON /PBASE/ MPB(4) r NPB ( 6 ) r XPB ( 6 • 20 r 2 > »YPB(6»20,2) » 

1 ZPB ( 6 » 20 r 2 ) 


COMMON /CUT/ NCUT r CUT (11) 

COMMON /WAKE/ MW ( 6 ) t NU ( 6 ) r XW ( 6 » 2 » 20 ) r YW C 6 r 2 » 20 ) r 
1 ZW ( 6 r 2 ' 20 ) 


CHARACTER T I TLES80 r OLDF ILS20 r NEWF I L*20 » L I NES80 r ENAME*20r 
1 ABUT#20 r NET WORK #20 » BC>M 


NAMELIST /PADATN/ OLLH- IL r NtUHL » ENAME t ABUT t IEDGE 
NAMELIS1 /RAXINN/ XNPR r EM JET r TT JET » THL IP t THETA J » JDUM f I PRINT 
1 » AM I NF 


CALL 

***** **** 


ASS I GN ( 1 1 » 'VI ' ) 
RFAD INPUT DATA 


* ** * ** * * * % * * * % %% %■ $ ** * * ** X: ** * * * * * *** * * * ^ 


OPEN (UNIT ^3 » FILE 'ADD JET. INP' i 
1 STATUS- 1 ' OLD ' ) 

READ ( 3 » BO . END- 120) TITLE 
80 FORMAT ( IX r A80 ) 

READ ( 3 » 85 ) (IDMP(I)f 1= lr20) 

85 FORMAT (2011) 


GO TO MO 
120 WRITE ( 11*130) 

130 FORMAT ( 1 HI r 1 OX » 'END OF FILE ENCOUNTERED ON INPUT FILE') 


140 WR I TE (11*90) TITLE 
90 FORMAT ( 1 OX t A80 ) 
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c 


READ ( 3 t PADATN ) 
READ ( 3 » RAXINN ) 
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CL0SE(UNIT=3» DISPOSE • 'KEEP' > 

C 

OPEN (UNIT=9»FILEOLDF IL » STATUS - ' OLD ' ) 

OPEN ( UNIT - 10 »FILE NEWFIL r STATUS: NEW' » 

1 CARRIAGE CONTROL- 'LIST' ) 

C 

C 

C 

C************* FiEAD PAN AIR DATA FILL 
IFLAG =- 0 
155 CALL RLADNET 

IF( IFLAG. EQ. 2) GU JO 170 
C 
C 
C 

C************ DEFINE THE PLUME CENTERLINE 

C 

C 

IF ( NETWORK .EG . ENAME ) I HEN 
CALL CENTER 
CALL CLINE 
END IF 
C 
C 

C********* DETERMINE THE COORDINATES EUR THE UPSTREAM ***)M:******.S:* 
C*****#### EDGE OF THE PLUME *##**##**:$:**<:* 

C 
C 
C 

DO NET = 1»6 

TF( NETWORK. EQ. ABUT (NET ) ) THEN 
CALL ST ART (NET ) 

N PLUME = NET 
END IF 
END DO 

IF( IFLAG.LT. 2) GU TO 155 
C 

170 CONTINUE 

WRITE ( 1 1 r 710 ) 

710 FORMAT ( / r 20X * ' ALL DATA HAVE BEEN READ FROM THE PANAIR DECK ' r // ) 

C 

C 

C.***#**#*#*** EXTEND THE PLUME DOWNSTREAM *##**$#**:*5 KM:**:*******#: 

C 

C CALL THE RAXJET CODE TO OBTAIN THE JET EXPANSION RATIO IN 

C THE DOWNSTREAM DIRECTION AND THE CORRESPONDING INFLOW VELOCITIES 

C VELOCITIES. THE VARIABLES ARE PUT IN THE COMMON BLOCK /RAXOUT/. 

C 

IF ( JDUM.EG. 1 ) CALL RAXSUB 
IF( JDUM.EQ.O) CALL RAXMAIN 
C 

C CALL SUBROUTINE -EXTEND' TO EXTEND THE PLUMES DOWNSTREAM 

C FROM THE EXIT PLANE. 

C 


X 
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CALL EXTEK'Li 
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********************* DEFINE THE FLUME BASE NETWORKS *********** 


CALL PBASE 
CALL WAKE 


C***************** CREAlE THE NEW PAN AIR FILE **************** 
C 

CALL CREATE 
C 


nn non on nn nnnn nnnono 

rj r j r j * 


SUBROUT INL 


SUBROUTINE 
DEFINE Till: 


ORIONAL F-/.GH F‘3 
OF POOR QUALITY 

* READNLT ' READS THE PANAIR FILE TO 
NEXT NETWORK. 


COMMON /DUMP/ IDKP(JO) 

COMMON /PADAT/ OLDF 1 L » NEWF IL » ENAKE » ABU i ( 6 > » IEDGE ( 6 > 

COMMON /NET WORK/ NETWORK r M » N » X ( 20 » 20 > »Y(20»20) » Z ( 20 » 20 ) > 
1 BC. IFLAG 

CHARACTER LINE*80» BC*4. NETW0RK*20> ABUT*20 


********* FiND WHERE THE NETWORK DATA BEGINS 


*************** 


00 READ ( 9 » 210 ) LINE 
10 FORMAT (ABO) 

IF(LINE(lt2) .EQ. ' * / ' ) GO I 0 200 

IF ( IFLAG . EQ . 0 ) 1 HEN 
DO I = li 20 
J = I + 3 

IF<LTNE(IJJ).EU. 'BEB1' ) GO 10 220 
END DO 
GO TO 200 
END IF 


IF ( IFLAG . EQ . 1 ) THEN 
DO I = 1 » 20 
J= I + 3 

IF (LINE< li J) .EQ. ' BEG1 ' ) 1 HEN 
IFLAG =2 
GO TO 390 
END IF 
END DO 
END IF 


20 CONTINUE 

DO I = 1 1 30 
J = I + 3 

IF ( LINE ( I J J ) . EU . ' NET W ' . AND . IFLAG » EG . 0 ) GO TO 230 
IF ( LINE ( I J J ) . EG . ' NET W ' . AND . IF L AG . EG . 1 ) GO TO 235 
END DO 
GO TO 200 


C************ FIND 1 HE NETWORK NAME CARD **************** 
C 

230 CONTINUE 

READ ( 9 f 210 ) LINE 
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235 CONI 1 NUE 

IF(LINE(1J2) . EQ. '%/ ' > GU TO 230 
DO I = 1 f 30 
J = I + 3 

IF ( LINE ( I J J ) . LU . ' NET W ' ) GO TO 236 
IF ( L INE ( I J J ) . EU • ' GEOM ' ) THEN 

WRITEdlr*) ' h OUNLi THE NEXT BEGIN CARD ' 
FLAG = 2. 

GO TO 380 
END IF 
END DO 
GO TO 230 


*********** READ I HE NETWORK 
236 CONTINUE 


DATA ************************ 


NOW FIND THE CHARACTERS ‘HE I WORK *■ 
IF(LINE(1.2) .EQ . '*■/') GO TO 236 
DO I = If 20 

IF ( LINE ( I : I ) .EQ. ) GO TO 238 
END DO 


NOW FIND START Oh THE NETWORK NAME 
238 N1 = I + 1 

DO J 2 1+1 > 5f 

if(line(j:j> ne.' n go to 240 

N1 = N1 + 1 
END DO 


FIND END OF THE NETWORK NAME 
240 N2 = N1 

DO I = Jf 50 

IF ( LINE ( I t I ) . EQ . ' ' ) THEN 
N2 = I - 1 
GO TO 250 
END IF 
END DO 

250 NETWORK = LINE(Ni:N2) 

GO TO 260 


************ REAL) THE VALUE Oh M 


#***#)}: * * * ** * ** ** * * * ** * * ** * 


260 h = 0 

DO 1= N2+1 r 80 

IF ( LINE ( I t I ) . NE . ' ') THEN 

READ ( LINE < III) r 270 r ERR= 360 ) M 
270 FORMAT < 1 1 > 

N3 = I + 1 

IF(LINF(N3JN3) .NE. ' ') THEN 

READ ( LINE ( I J 1 + 1 ) * 280 t ERR- 360) M 
FORMAT ( 12) 


280 


N3 = I + 2 
END IF 
END IF 

IF(M.GT.O) GO 10 285 
IF ( I . GE . 7? ) GO 10 200 
END DO 
C 
C 

C*************** READ VALUE OF- N *t**t*********t****************** 

C 

285 N = 0 

DO I = N3, 80 

IF ( LINE ( I ! I ) • NE • ' ') THEN 

READ ( LINE ( I J 1 ) » 290 , ERR- 360 ) N 
290 FORMAT (II) 

IF ( L INE ( I+1JI+1) .NE. ' ') THEN 

READ ( LINE ( I J I + 1 ) r 300 , ERR= 360 ) N 
300 FORMAT ( 12 ) 

END IF 
END IF 

IF ( I . GE . 79 ) GO 10 200 
IF(N.GT.O) GO TO 310 
END DO 
C 
C 
C 

C*#**#*#*#*** READ 1 HE X » Y , Z C0QRD1NAIES ************************* 

C 

310 READ ( V , # ) ((X(I»J)»Y(I»J)»Z(1»J)» I=1»M), J=1,N> 

C 

C 

C************** HEAD THE BOUNDARY CONDITION ##***#*##*##***X**#**##* 
C 

500 C0NI1NUE 

READ (9,510) LINE 
510 FORMAT ( A80 ) 

C 

DO I = 1,10 
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530 


C 


C 

C 

320 


J = I + 3 

IF(LINE(IJ J) .EU. 'BUUN' ) GO TO 320 
IF (LINE (I*. J) .EU. 'NE 1U' ) 1 HEN 
URITEtll ,030) NETWORK 

FORMAT ( /// , 30X , ' 1 HE BOUNDARY L0ND11 ION WAS NOT FOUND 

1 'FOR NE I WORK' , 

2 A2o,/,30X, 'RRUGRAM WILL BE TERM1NA i ED . ' ) 


STOP 
END IF 
END DO 
GO TO 500 


CONTINUE 
DO I = 1,76 
J = I + 3 


IF ( LINE ( i: J) .EO. 'UPRE' ) GO TO 325 
IF ( LINE ( I J J ) . EU . ' LUWE ' ) GO TCJ 325 


9 
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C 


520 


C 

325 


C 


IF<LINE(i:J>.EG.'AVEK'> GO 10 325 
IF(LINE( I J J) .Eli. 'WAKE' ) GO TO 325 
END DO 
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DO I * 1,6 

IF<NETWORN.EQ. ABUl ( 1 > > UR ITE ( 1 1 . 520 ) NETWORK 
END DO 
GO TO 325 

FORMAT ( // * 20>: .'THE BOUNDARY CONDITION ON NETWORKS ABUTTING THE',/. 

1 20X * ' PLUME MUST BE CLASS 1, SUBCLASS UPPER OR LOWER ',/, 20X , 

2 'IF THE SUBCLASS INDEX WAS USED INSTEAD OF THE KEY WORD '»/» 20X » 

3 'THEN CHANGE TO THE KEYWORD DESIGNATION. THIS MUST BE DONE ' * 

4 „ / » 20X * ' F UR NETWORK ' » A20 , / , 20X , 'SINCE IT ABUTS THE PLUME •'?//) 


CONT 1NUE 

BC = LINE ( I J J ) 

GO TO 370 


360 CONTINUE 

UR I TE (11, 362 ) LINE 

362 FORMAT (20X, 'END OF CARD REACHED WHILE ATTEMPTING'* 

1 ' TO READ THE VALUES OF M AND N ON THE FOLLOWING CARD'* 

2 / * A80 ) 

STOP 


370 


C 

380 

910 


390 


CONTINUE 
IFLAG = 1 


CONTINUE. 

IF ( I DMP ( 2 > . EG . 1 ) WRITE (11*910) NETWORK * M , N » BC » I FLAG 
rORNAl ( /OX * ' DUMP FROM SUBROUlINE READNET'* 


1 

1 

n 

3 

A 


*##*##** *t%*t**%******XX*tM*X**X**********XX* ****** # 


10X, 'NE I WORK 
10X*' M 
10X*' N 
10X*' BC 
10X,' IFLAG 


' r A20 * / 

' * 14./ 

' * 14 . / 

' *A4»/ 
' . 14 ) 


CONI 1 NUE 
RETURN 


END 


f 


r» 


B-28 


onnnnn n n nn 


ORIGINAL PAGF. 13 
OF POOR QUALITY 


SUBROUTINE CENTER 
C 

C PROGRAM CENTER LUCATES THE GEOMETRIC CENTER OF THE 

C EXIT NETWORK AND COMPUTES THE EXIT AREA 

C 

C THE OPTIONS AVAILABLE T U DO THIS ARE: 

C 

C ICENTR = 1 THE CENIER OF THE EXIT IS COMPUIcD AS THE 

C AVERAGE UF THE FOUR CORNER POINiS. 

C 

C ICENTR - 2 THE CENTER OF THE EXIT WILL BE PROVIDED 

C BY THE USER. 


C 

C INPUT COMMON BLOCKS = /NET'JORK/ AND /PADAT/ 

COMMON /DUMP/ IDMP (30) 

COMMON /PADAT /OLDF IL » KEWh IL t ENAME » ABUT ( 6 > » IEDGE ( 6 ) 

COMMON /NE I WORK/ NETWORK > M » N , X < 20 » 20 ) » Y ( 20 » 20 > f Z ( 20 » 20 ) » 
1 DC » IFLAG 


OUTPUT COMMON BLOCKS = /CLINE/ 

COMMON /CLINE/ XC » YC » ZC » A » B » C » EAREA » DI A 


CHARACTER NETW0RK*20 » BC*4 » ENAME*20 , OLDF I L*20 f MEUF I, .*20 
IF ( IDMP ( 3) • EQ < 1 ) WR I TE ( 1 1 » 705 ) 

705 FORMAI <//»5X» 'DUMP FORM SUBROUTINE CENTER ************ ' , 
1 ' ****************+********** ' ) 


************* CHECK SYMMETRY IN Y=-0 PLANE *************************** 

(I.E. IF ALL VALUES OF Y ARE ZERO THEN THAT EDGE 
ABUTTS THE PLANE 01- SYMMElRY.) 


Y 1 
Y2 
Y3 
Y 4 


0. 

0. 

0. 

0. 


DO I = 1 » M 
Y 4 = Y 4 
yn = Y"* 
END DO 


Y ( I 
Y(I 


1 ) 
N) 


DO J - 1»N 
Y 1 = Y 1 
Y3 = Y3 
END DO 


Y( 1 » J) 
Y ( M » J ) 


I F ( Y 1 , EQ .0.0. AND . 1 DMP ( 3 ) . EQ . 1 ) WRITE d 1 » 710 ) 
IF(Y2.EQ.0.C.AND.l DMP ( 3 ) .EQ.l) WRI TE ( 1 1 t 720 ) 
IF( Y3.EG.0.0. AND. IDMP (3) .EQ.l) WRITE d 1 * 730 ) 
IF(Y4.EG.0.0. AND . 1 DMP ( 3 ) .EQ.l) WRITE d 1 » 740 ) 


I F ( Y 1 . EQ .0.0) ISYM == 1 
I F ( Y2.EQ.0.0) ISYM = 1 
IF ( Y3 . EQ . 0 . 0 ) ISYM = 1 
IF ( Y4 . EQ .0.0) ISYM 1 
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C 

710 FORMAT ( SOX » 'SIDE 1 UF THE EXIT PLANE ABUTS THE ', 
1 'PLANE UF SYKMElRY, Y =■<)') 

770 FORMAT ( 20X » 'SIDE 2 OF THL EXIT PLANE ABUTS THE ', 
1 'PLANE OF SYMMET RY » Y-O') 

730 FORMAT (SOX , 'SIDE 3 OF THE EXIT PLANE ABUTS THE ', 
1 'PLANE UP SYMMETRY. Y O') 

740 F ORMAT ( 20X . 'SIDE 4 OF THE EXIT PLANE ABUTS I HE 
1 'PLANE OF SYMMETRY. Y = 0') 


XC = (X(i»l)+X(M.1)+X(1.N)+X(M»N>) / *.0 
YC = (Y(1»1)+Y(M»1)+Y(1»N)+Y<M»N)> / 4 0 
ZC = (Z(1.1)+Z(M.1)+Z(1.N)+Z(M.N) ) / 4.0 

IF( ISYM.EO. 1 ) YC » 0.0 


************* CHECK SYMMETRY IN 2“0 PLANE ********t*t*******t****t*** 


(I.E. IF ALL VALUES OF Z ARE ZERO THEN THAT EDGE 
ABUTTS THE PLANE UF SYMMETRY.) 

JSYM = 0 
C 

Z1 « 0. 

Z2 = 0. 

Z3 = 0. 

Z 4 = 0. 

C 

DO I - l.M 

Z4 » Z4 + Z ( T » 1 ) 

Z2 = Z2 + Z(I.N) 

ENr DO 
C 

DO J = l.N 

Z1 = Z1 + Z(l.J) 

Z3 = Z3 + Z(M.J) 

END DO 
C 

IF < Z 1 . EQ . 0 . 0 . AND • I DMP ( 3 ) .EO.l ) UR ITE ( 1 1 . 81 0 ) 

IF ( Z2 . EQ . 0 . 0 . AND . 1 DMP ( 3 ) .EQ.l) UR IT E(1 1.820) 

IF ( Z3 . EQ .0.0. AND . 1 DMP ( 3 ) .EQ.l) URITE( 1 1 ,biO> 

IF ( Z4 . EQ .0.0. AND. 1 DMP (3) .EQ.l) UR I TE ( 1 1 . 840 ) 

C 

IF ( Z 1 . EQ . 0.0) JSYM - 1 
IF ( Z2 • EQ • 0 • 0 ) JSYM = 1 
IF ( Z3 . EQ .0.0) JSYM - 1 

IF ( Z4 . EQ .0.0) JSYM « 1 

C 

910 FORMAT ( 20X » 'SIDE 1 OF THE EXIT PLANE ABUIS 1 HE '. 

1 'PLANE OF SYMMETRY, Z^O') 

820 FORMAT ( 20X . 'SIDE 2 OF THE EXIT PLANE ABU l S THE ', 
1 'PLANE UF SYMMETRY, Z"0') 

S30 FORMAT ( 20X » 'SIDE 3 OF THE EXIT PLANE ABUTS THE 
1 'PLANE OF SYMMETRY, Z-0') 

840 FORMAT ( SOX » 'SIDE 4 OF THE EXIT PLANE ABUTS THE '. 
1 'PLANE UF SYMMETRY, Z=0') 

C 
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IF! JSYM.EU. 1 ) ZC 


0.0 . 
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c 
c 
c 

C IF ICENTR = 2 THEN XCL<1)> YCL(1)» AK'l) ZCL(l) 

C MUST Be PROVIDED BY USER--- ADD CODE FOR THIS!! 

C 

C 

C 

C******* COhPUlE (HE AREA OF THE NOZZLE EXIT WITH THE *************** 
C ******* MENSURATION FORMULA FUR A GENERAL QUADRILATERAL ************ 
THE AREA OF EACH PANEL WILL BE COMFUIED INDIVIDUALLY AND 
SUMMED TO GET THE AREA OF 1 HE EXIT. 

110 CONTINUE 

EAREA «• 0.0 


I F ( I DMP ( 3 ) . EQ . 1 ) WRITE ( 1 1 »901 ) 

901 F0RMAT!//»20X» 

1 'I .J X!I»J> Y ! I » J ) Z!I»J> ASQ BSQ CSQ' 

2 ' DSQ PSU QSQ EAREA') 

DO J = 1» N-l 
DO I = It M-l 

II = 1+1 
JJ = J+l 

ASQ=(X( I » JJ)-X( 1 » J) )**2. +(Y(I» JJ)-Y(Z» J>)**2 + 

1 ( Z < I » JJ ) -Z ( I r 2 > ) **2 

BSQ=(X( 1 1 » JJ ) -X ( I » J J ) )**2+! Yv II t JJ)-Y( I f JJ) )**2+ 

1 ! Z ! 1 1 ? JJ) -2! 1 r JJ ) ) **2 

CSQ=!X( II » J)-X( 11 r JJ) )**2+! Y ( I I » J )-Yv 1 1 » JJ ) )**2 + 

1 <Z(II» J)-Z(1I» JJ) )**2 

DSQ»(X( 1» J)-X(II r J) )**2+(Y(I » J)-Y(II t J) >*<2+ 

1 (Z(I»J)-Z<IIrJ>)**2 

PSQ= ( X < 1 1 » J ) -X ( 1 r J J ) )**2+!Y! 11 * J)-Y( 1 1 JJ) )**2 + 

1 CZCIIt J)-Z(If JJ) )**2 

QSQ= ( X ( 1 1 » J J ) -X ( 1 / J ) )**2+! Y (11»JJ)-Y(I t J ) )**2 + 

1 (Z\II»JJ)— Z(I»J) ) * * 2 

E AREA= EAREA J t 0 . 2U*SUR <4 . *PSQ*QSQ- ( BSQ+DSQ-ASQ-CSQ ) t*2 ) 


IF ( IDMP ( 3 ) . EQ . 1 ) UR I TE < 1 1 ? 90S ) I » J» X ( 1 r J) f Y ( I » J ) * Z ( I * J) > ASQ > 

1 BSQ » CSQ . DSQ r PSU . USQ . EAREA 

905 FORMA l ( lbX»2I3t 10F7.2) 

END DO 
END DO 
C 

IF ( I DMP ( 3 ) . EQ . 1 ) WRITE! lit 750) NETWORK 

IF ( ISYM.EQ.O. AND. JSYM.EQ.O. AND. I DMP! 3) .EQ . 1 ) WRITE! 1 1 .760) EAREA 
IF ( I SYM.EU. 1 .AND. JSYM.EQ.O) THEN 
EAREA - 2. * EAREA 

IF! IDMP!3> .EQ. 1 ) WRITE! 1 1 » 7/0 ) EAREA 
END IF 

IF! ISYM.EQ.O. ANU.JSYM.EQ. 1 ) THEN 
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EAREA - 2. * EAREA 

IF < IDMP(3) »EQ. 1 ) WRIT E(ll»/80) EAREA 
END IF 

IF< ISYM.EQ. 1 . AND. JSYM.EQ. 1 ) THEN 
EAREA - 4. * EAREA 

IF ( IDMP ( 3 ) . EQ . 1 ) WRITE ( 1 1 » 790 ) EAREA 
END IF 
C 
C 

C CONFUTE THE EQUIVALENT NOZZLE EXIT DIANE I ER 

DTA = SQRT ( 4 . * EAREA /3. 14159) 

C 

C 

750 F0RMAT(/»20X» 'THE NOZZLE EXIT NETWORK IS '.A20> 

760 FORMAT (20Xr 'THE EXIT AREA IS '.F10.3) 

770 FORMA T ( 20X . 'THIS NETWORK ABUTS THE * Y * PLANE OF SYNNETRY ' . 

1 / » 20X .'THE TOTAL EXIT AREA IS '.F10.3) 

780 FORMAT (20X. ' THIS NETWORK ABUTS THE • Z ■ PLANE OF SYMMETRY'. 

1 /»2 OX.'fHE TOTAL EXIT AREA IS '»FX0«3> 

790 F0RMAT(20X. 'THIS NETWORK ABUTS THE "Y* AND '2* PLANES OF ', 
1 'SYMMETRY' »/»20X, 'THE TOTAL EXIT AREA IS '.F10.3) 

C 

C 

IF ( IDMP ( 3 ) . EQ ♦ 1 ) WRITE (11.910) XC.Yu.ZC. EAREA. D1A 
910 FORMAT ( // . 


1 

10X. ' 

XC = ' .F8.3. 

2 

10X. ' 

YC - '.1-8.3./. 

3 

10X, ' 

ZC = ' » F8 « 3 » / » 

4 

10X. ' 

EAREA = '.1-8.3./. 

5 

10X. ' 

DIA - ' » F 8 . 3 ) 


C 

RETURN 

END 


B-32 


ML 


SUBROUTINE CLINE 


ORIGINAL FV\G£ & 
OF POOR QUALITY 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


SUBROUTINE 'CLINE' BE I ERMINES THE COEFFICIENTS FOR AN 
EQUATION THAI DESCRIBES THE CENTERLINE PA I H UP THE PLUME. 

THE INITIAL DEFLECTION ANGLE IS ACCOUN I ED FOR. 

THE FOLLOWING ASSUMPTIONS ARE MADE IN DEVELOPING THE 
PATH OF THE PLUME CENTERLINE. 

1. THE PLUME STARTS AT THE CENTERLINE OF THE EXIT NETWORK. 

2. THE INITIAL oi_OPE OF THE PATH IS THE SAME AS THE 
JET DEFLECTION ANGLE. 

3. THE PLUME EXTENDS DOWNSTREAM FOR A DISTANCE OF 10 
NOZZLE EXIT DIAMETERS. AT WHICH POINT THE SLOPE IS ZERO 

4. THE Y VALUE OF THF PATH DOES NOT CHANGE. 

5. THE EQUATION UP 'HE Pr'TH TAKES THE FOLLOWING 
FORM WHERE 2 AND X ARE INCREMENTAL VALUES 
RELATIVE TO THE PLUME CENTERLINE . 

Z = A*X**2 + D*X + C 


COMMON /DUMP/ IDMP(30) 

COMMON /RAXIN/ XNPR. EM JET » T Y JET . THL.IP » THETA J » JDUM . IPRINf 
1 .AMINF 

COMMON /CLINE/ XC . YC . ZC . A . B . C . EAREA . D I A 

XI = 10. * DIA 

THETA = - THETAJ /S/.2958 
A = - TAN(THEIA) /(2. * XI) 

B = TAN(THETA) 

C = 0.0 


IF(IDMP(4) .EQ.l) WHITE (11.910) A.B.C 
910 FORMAT (/OX. 'DUMP FROM SUBROUT 1NE .CLINE ' . 

1 ' *****#***;**.** .*************% MKXX ******* ******** ' , / , 

1 10X» 'COEFFICIENTS OF THE PLUME CENTERLINE 

2 'EQUATION ARE J ' . / . 10X . ' A = ' . F R . 4 . / , 10X . 

3 'B = ' .F8.4./.10X. 'C = ' » F8 . 4 ) 

RETURN 

END 


f- 


\ 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE START READS ’"'AT A FOR THE NET WORKS THAT ABUT THE EXIT 
NETWORK. T HE COORDINATES OF T HE ABUTTING EDGES DEFINE I HE 
INITIAL EDGE POINTS OF THE PLUME. 


THE LEADING EDGE OF THE PLUME WILL ALWAYS BE EDGE 4, AND 
THE BOUNDARY CONDITION WILL ALWAYS BE CLASS 2f UPPER. 


COMMON /DUMP/ IDKPCiO) 

COMMON /PADAT/ OLDI- 1L f NEWF IL f ENAME f ABUT ( 6 ) f I EDGE ( 6 ) * I BUG 
COMMON/NE ( WORK/ NET WORK f M f N f X ( 20 f 20 ) f Y ( 20 f 20 f Z ( 20 » 20 > f 
1 BC t IFLAG 

COMMON /CLINE/ XCfYCfZCfAfBfCfEAREA 

COMMON /PLUME/ MP ( 6 ) t NP ( 6 > t XP ( 6 r 20 » 20 ) f YP (6 » 20 » 20 ) f 
1 ZP ( 6 » 20 » 20 ) » OP ( 6 f 20 ) 

CHARACTER NE f W0RKS20 » BC*4 r OLDF II *20 . NEWF IL*20 . ENANE*20 r ABUT*20 


IF < IEDGE ( NET ) . EO . 1 . AND . BC . EQ . 'UPPE' > I HEN 
MP ( NET ) = N 
DO J = 1 » N 

XP(NET»J»1) = X(ltJ) 

YP(NETfJfI) = Y(lrJ) 

ZP ( NET f J » 1 ) = Z(lrJ) 

END DO 

END IF 

IF ( I EDGE (NET) . EU . 1 . AND . BC . EQ . ' LOWE ' ) THEN 
MP ( NET ) = N 
DO J = IfN 

K = N - J + 1 
XP(NETfJfI) = X ( 1 f K ) 

YP(NETfJfI) = Y(lrK) 

ZP(NETfJfI) = Z(1fK) 

END DO 

END IF 

IF ( IEDGE (NET) . EU . 2 . AND . BC . EG . 'UPPE' ) THEN 
MP ( NET ) = M 
DO I = IfM 

XP(NETfIfI) = X(1fN) 

YP(NETfIf1 ) - Y(1fN) 

ZP(NET.IfI) = Z(IfN) 

END DO 

END IF 

IF ( IEDGE (NET) . EU . 2 . AND . BC . EG . 'LOWE' ) THEN 
MP ( NET ) = M 
DO I = IfM 

K = M - I + 1 

XP ( NET f I f 1 ) = X(KfN) 
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C 


C 


C 


C 


YP ( NET r 1 » 1 ) =• Y ( K » N ) 
ZP ( NET » I » 1 ) = Z ( N » N ) 
END DO 
END IF 


ORIGINAL *« 
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IF < I EDGE (NET) . EQ.3.AND.BC.EQ. ' UPPE ' ) THEN 
MP ( NET ) = N 
DO J = 1 » N 

K = N - J + 1 

XP ( NET fJ>1) = X ( M » K ) 

YP ( NET » J » 1 ) = Y(KrK) 

ZP ( NET * J » 1 ) = Z(h»K) 

END DO 
END IF 


IF ( IEDGE ( NET ) . EQ . 6 . AND . BC . EQ . ' LOUE ' ) THEN 
HP ( NET ) = N 
DO J = 1 » N 

XP ( NET » J » 1 > = X(M,J) 

YP ( NET f J * 1 > = Y < M » J ) 

ZP ( NET » J » 1 > = 2 ( M » J ) 

END DO 
END IF 


IF ( IEDGE (NET) . EQ . 4 . AND . BU . EU . 'UPPb' ) THEN 
MP ( NET ) - M 
DO I = 1 * M 

K = M - I f 1 

XP ( NET rl» 1) = X ( K f 1 ) 

YP ( NET ? I » 1 ) = Y ( K » 1 ) 

ZP ( NET * 1 1 1 ) = Z ( K » 1 ) 

END DO 
END IF 

IF (IEDGE (NET) .EU.4.AND.BC.EGJ. 'LOWE' ) THEN 
MP ( NET ) = M 
DO I = 1 , M 

XP(NET»Ifl) = X(l»l) 

YP ( NET » I » 1 ) = Y ( I » 1 ) 

ZP ( NET 1 1 » 1 ) = Z(l»l) 

END DO 
END IF 


IF< IDMP(5) .EQ. 1 ) WRIT L(lltVlO) NE I WORK » NET » ( XP ( NET » 1 » 1 ) » 

1 YP ( NET » 1 » 1 ) » ZP ( NET » 1 f 1 ) » 1 = 1 1 MP ( NE I ) ) 

910 FORMAT (/OXt 'DUMP PROM SUBROUTINE STAR 1 ' * 

1 ' ******tMt.X***%***X****tt**%X).*K*******%X%%** ' > / f 

1 1 OX » ' THE EDGE OF THE PLUME SEGMENT FOLLOWS THAT ABUTS TO THE '» 

2 'NETWORK - ' » A20 »/» 10X » ' I f IS PLUME PART NUMBER ',I2»/> 

3 lOXf' XP YP ZP' t/f ( 10X»3F8.3) > 

RETURN 

END 
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SUBROUT 1NE EXTEND 
C 

C SUBROUTINE "EXTEND* IS SUPPLIED WITH M COORDINATES ALONG 

C THE FORWARD LUGE OF THE PLUME IN THE VARIABLE XP ( NET » M » 1 ) ETC.. 

C WHERE NET INDICAlES I HE ( NET ) TH NETWORK OF THE PLUME. IT 

C IS ALSO SUPPLIED WITH THE COEI- 1- 1L1EN I S OF AN EQUATION 

C DEFINING THE INCREMENTAL VARIATION IN PLUME HEIGHT DOWNSTREAM 

C OF THE EXIT ( A » B ) . 

n 

L 

C THE PLUME WILL BE PANFLLED SUCH THAT THE M DIRECTION (EDGE 1) 

C ABUTTS I HE NACELLE AND I HE N DIRECTION IS DOWNSTREAM. THE 

C 'UPPER* SURFACE WILL BE EXPOSED TO THE FLOW. 

C 

C THE PLUME WILL EXTEND DOWNSTREAM A DISTANCE OF 10 EQUIVALENT 

C NOZZLE EXIT DIAME I ERS (I.E. S1A = 10 DIA)* AND WILL CONTAIN 

C THE CUTS DEF'INED IN THE FOLLOWING DATA STATEMENT. 

C 

COMMON /DUMP/ IDMP(30> 

COMMON /RAXIN/ XNPR * EM JET » TT JET * THL IP , T HET A J * JDUM * IPR I NT 
1 .AMINF 

COMMON /PLUME/ MP ( 6 ) * NP < 6 ) * XP ( 6 1 20 * 20 ) * YP ( 6 * 20 * 20 ) * 

1 ZP(6*20* 20 )*VP (6*19*19) 

COMMON /CLIHE/ XL * YC * ZC * A * B » C * EAREA * D I A 
COMMON /RAXOUT / NF'TS * XST A ( 30 ) » YRA1 10(30) * XVN ( 29 ) 

COMMON /XCUT / NCUTS * CUT ( 1 1 ) 

C. 

DIMENSION ST A ( 1 1 ) * RAT 10(11) * VN ( 1 0 ) * XSTAM ( 2V ) *STAM( 10) 

DATA CUT / 0. 0*0. 2S *0.00*0.75*1. 00*1. SO *2. 00 >3. 00 *4. 00 *5. 00*6. 00/ 

C 

WRITE (11**) ' * NP'I S : - ' * NPTS 

C*************** CHECK DATA FROM RAX JET *************************** 

IF ( IDMP( 6 > . EU . 1 ) WRITE (lit 904 ) 

904 F0RMAT(//>5X, 'DUMP FROM SUBROUTINE EXTEND ************4 t****', 

1 ' *************************** ' t / f 

2 10X» ' N0NDIMENS1UNAL OUIPUT FROM RAX JET FOLLOW',/, 

3 10X,' I XSTA(l) YRATIO(l) XVN(I)') 

IF ( I DMP ( A ) . EQ. 1 ) THEN 

DO 110 1 = 1 * NF’T S 

WRITE( 11 » 906) I , XSTA ( I ) » YRAT 10(1) 

906 FORMAT ( I 10 , 2F10 . 3 ) 

IF(I.LT.NPTS) WRITE (lit 90S ) XVN(I) 

908 F0RMAT(30X,F 10.4) 

110 CONTINUE 

END IF 


************** DEFINE THE CORNER POINTS OF THE PANELS 


*************** 


RATIO AT THE STATIUNS IDENfIFIED IN THE XCUT DA l A STATEMENT. 

NCUTS = 11 
C 

DO I = 1 » NCUTS 

ST A ( I ) = CUT ( I ) * DIA 
END DO 
C 
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DO I = l, NPTS 

XSTA(I) = XSTA(I) * Hi A OPlGiNAL PAGE !J 

END DO 0 p poOP. QUALITY 


CALL DER ( XST A » YKA I 1 0 » NPT S . SM , SN ) 

CALL CAL(NP(S>XSTA, YKATIO r NCUTS » Si A,RA) 1 0 * SM » SN t ISM ) 


EXTEND THE INITIAL POINTS ON THE PLUME DOWNSTREAM. 

DO 200 NET - If 6 

IF ( MP ( NET ) . EQ . 0 ) GO TU 200 

DO 120 I = If MP ( NET ) 

DO J = 1 f NLUT S 

XSLOPE = 1. - (STA(J) / ST A ( NCUTS ) ) 

XP ( NET ? I » J ) = XC + STA(J) + ( XP ( NET » 1 f 1 > -XC ) *RAT 1 0 ( J ) *XSLOPE 
YP( NET r I » J ) = YC + CYP(NET » I » 1 )-YC) * RATIO(J) 

DZ = A * S(A(J)**2 + fci * STA(J) 

ZP ( NET » I » J ) = ZC + DZ + ( ZP < NET » I » 1 ) -ZC ) * RATIO(J) 


END DO 

NP ( NET ) = NCUTS 
120 CONTINUE 


************ COMPUTE OUTFLOW VELOCITIES 




DO I = 1» NPTS 

XST AM ( I ) = (XSTA(l) + XSTA(I + 1>> / 2.0 
END DO 

DO I = lflO 

ST AM ( I ) = ( ST A ( I ) + STA ( I + 1 > ) / 2.0 
END DO 

N1 = NPTS -1 

CALL DER (XSTA>XVNrNl»SM»SN) 

CALL CAL(N1»XSTAM»XVN»10»STAM»VN>SM?SN»ISM) 


FINAL VELOCITIES COMPUTED AT PANEL CENTERS. NOTE THERE IS 
NO ON VARIATION IN THE M DIRECTION. 



f W 


DO 150 T = 1 » MP ( NET > 

DO J = 1»10 

VP ( NET » I » J ) = VNTJ) 
END DO 

150 CONTINUE 
C 
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IF < I DMP ( 6 ) .EO.l >WRITE<11 >V10)NET » ( ( I » J » XP v NET » I > J ) » YP ( NET • I » J > > 
1 ZP ( NET » I » J ) » VP < NE I » 1 f J ) » 1-1 » MF ( NE f ) ) » J= l»NP(NEl>> 

910 FORMAT ( // » 5X » ' CUURD1 NAT ES l-OR PLUME SEGMENT NUMbER '»I2»/» 

10X»' M N XP YP ZP UN '?/? 

( 10Xt214»2X»4l- 10*3) ) 

200 CONTINUE 
C 
C 

RETURN 

END 
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origin u r v.r i 

OF POOR QL..LHV 

3UBR0UT 1NE PBASE 

SUBROUTINE F’BASE GENERATES THE DATA FUR I HE 

BASE OF I HE PLUME . ONE F LUME BASE NETWORK FOR EACH 

PLUME NETWORK. 

COMMON /DUMP/ IDMP(30) 

COMMON /PLUME/ MP' ( 6 ) » NR < 6 ) » XP ( 6 » 20 » 20 ) » YF* ( 6 r 20» 20 ) » 

1 ZF 1 ( 6 1 20 * 20 ) t OP ( A » 20 » 20 ) 

COMMON /CLINE/ XC>YC>ZC»Z»B*CfRAREA»DlA 
COMMON /XCUT/ NCUT t CUT (11) 

COMMON /PBASE/ MPB ( 6 ) » NP'B ( 6 ) » XPB ( 6 * 20 » 2 > » YPB ( 6 » 20 » 2 ) » 

1 ZPB ( 6 » 20 » 2 ) 

DXBASE = CUT ( NCUT ) * DIA 
DZ = A * XBASE**2 + B * XBASE 

XBASE = XC + DXBASE 
YBASE = YC 
ZBASE = ZC + DZ 

DO I = 1 f 6 


IF ( MF‘ ( I ) . EQ . 0 ) GO TO 100 
MPB ( I ) = MP ( I ) 

NPB(I) = 2 


DO J = 1 ? MP ( I > 

XPB ( I » J » 1 ) = XP(1» J»NP(1) ) 
YPB(IfJ.l) = YP( I » J»NP< I ) ) 
ZPB(IrJfl) = ZP(lf JrMP(I) ) 


XPB ( I » J » 2 ) = XBASE 
YPB ( I » J » 2 ) = YBASE 
ZPB ( I » J * 2 ) = ZBASE 
END DO 

100 CONTINUE 


IF ( IDMP ( 7 ) . EQ • 1 • AND . MP ( I ) .GT.O) UR11 E< 1 1 t V10> I* ( ( J » K f XPB ( I » J ? K ) r 
1 YPB (IfJrK)r ZPB ( I * J » K ) f J=1»MPB(1))» K-1»NPB(I)> 

910 FORMAT <//»5X» 'DUMP FROM SUBRUUdNE PBASE ******)M***>M*#**)r.»:* ' * 

1 / » 1 OX » ' DATA FOLLOW FOR PLUME BASE SEGMENT NUMBER '*12»/» 

2 1 OX » ' M N XPB YPB ZPB'. 

3 /* ( lOXf 214, 3F 10.3 ) ) 


END DO 
C 

RETURN 

END 
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SUBROUTINE * WAKfc * DETERMINES THE COORDINATES H OR WAKE 
NETWORKS ( HA ( EMANATE FROM THE PLUhE BASE. 

EDGE 1 IS I- URGED TO ABU I THE PLUME BASE. 


COMMON /DUMP/ IDMPCiO) 

COMMON /CLINE/ XC » YL i ZC » A » B i C » EARS A » Li 1 A 
COMMON /PBASE/ MPB ( 6 ) » NPB ( 6 ) » XPB ( 6 » 20 » 2 ) » YPB ( 6 >20 r 2 ) » 
1 ZPB ( 6 » 20 r 2 ) 

COMMON /WAKE/ MW ( 6 ) » NW ( 6 ) > XW ( 6 > 2 > 20 ) t YW ( A > 2 > 20 ) » 

1 ZW ( A » 2 > 20 ) 


MATE EDGE 1 OF WAKES TO 1 HE PLUME BASE 

DO 100 I = 1» 6 

IF ( MPB < I ) . EG . 0 ) GO IU 100 

NWAKE = I 


C 

DO K = 1 t MPB 
XW ( I > 1 > K ) 
YW( I » 1 »K) 
ZW(I»1»K) 

c 

XW ( I » 2 » K ) 
YW( I »2>K) 
ZW ( I r 2 * K ) 
C 

MW ( I ) = 2 


I ) 

- XPB ( 1 >K> 1 ) 

= YPB(IfKrl) 

= ZPB ( I > K > 1 ) 

= XU(IiliK) + SO. 
« YW(lilfK) 

= ZW(lflrK) 


NWCI) = MPB ( I ) 


* DIA 


END DO 

IF ( IDMP ( 8 ) . EQ . 1 ) WRITE (llrVlO) 1 > ( ( J » K > XW ( 1 » J > K ) » 
1 YW(I» JfK) » ZW( 1> J.K) t J=1 >MW< I ) ) »K=1 »NW( 1 ) ) 


910 FORMA! <//> SX> 'DUMP FROM SUBROUTINE WAKE'. 

1 ' #)M***:M:*******************************X* ' »/» 

2 13X » ' THE COORD INAl ES HOLLOW FOR WAKE NUMBER 'til. 

3 / * 1 3X » ' M N XW YW ZW'./> 

4 < 10 X> 214 > 3 F 1 . 0 . 3 > ) 

100 CONTINUE 

RETURN 

END 
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SUBROU I 1NE CREATE 


SUBROUTINE CREATE USES I HE OLD PANAIR FILE AND THE 
COMPUlED DATA TO CREATE A NEW PANAIR FILE WITH THE 
PLUME NEIWORKS AND THE ASSUCIAlED OUTFLOW VELOCITIES. 


COMMON / f 11 L/ TITLE 
COMMON /DUMP/ IDMP(30> 

COMMON /PADAT/ OLDFILf NEWFILf ENAME f ABU I ( 6 ) f IEDGE ( 6 ) 
COMMON /RAXIN/ XNPRfEMJEI fT I JE I f 1 HL IP f THET A J f JDUM f I PR I N ! 
1 fAMINF 

COMMON /NETWORK/ NE I WORK f M f N f X < 20 » 20 > f Y ( 20 f 20 > » 2 ( 20 f 20 ) f 
1 BCfIFLAG 

COMMON /PLUME/ MP<6) fNP<6) fXP(6»20f20) fYP(6.20f20> f 
1 ZP(6f20f20> fVP(6f IVf 19; 


COMMON /PBASE/ MPB ( 6 ) f NPB ( A ) f XPB ( 6 » 20 f 2 > f YPB < 6 f 20 f 2 ) f 
1 ZPB ( 6 f 20 r 2 ) 

COMMON /WAKE/ MW ( 6 ) f NW ( 6 > f XW ( 6 f 2 f 20 ) » YW ( 6 f 2 f 20 ) f 
1 ZW(6f2f20> 


CHARACTER TITLE*BOf 0LDF1L*20f NEWFIL*20f LINK*BOf ENAME*20f 
1 ABUT*20fNET W0RK*20fBC*4fCARD*4 

C 

REWIND 9 
C 

C****** READ AND WRITE UNTIL THE 'BEGIN GLOBAL DAI A' CARD IS FOUND **** 
C 

100 CONllNUE 

READ ( 9 f 1 10 > LINE 
110 FORMAT ( A80 ) 

C 

DO I = If 20 
J = I F 3 

IF ( LINE ( I JJ) .EU. ' BEG1 ' ) GO 10 150 
END DO 

WRITE( IOf 120) LINE 
120 FORMA! (AbO) 

GO TO 100 
C 

150 CONTINUE 

DO I = If 20 
J = I + 3 

IF < LINE ( I tJ) . EU . 'GLOB' ) THEN 
WRITE(10 f 160) 

WRITE( IOf 162) 

WRITE( IOf 163) 

WRITEC IOf 164) TITLE(1J50)f (JLDUL f NEWHL 

IF( JDUM.NE. 1 ) WRIT E ( 10 f 166 ) XNPR f EM JE I f I ( JE f r I HL IP f I HE 1 A J 
IF< JDUM.EO. 1 > WRITE (10*168) 

WR1TE( IOf 170) 

END IF 
END DO 
C 

160 FORMAT ( 

1 '%/ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%', 
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c 

c 

162 


163 


C 

1 64 


C 


ORIGINAL PACE !S 
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2 '*****************' ,1/4, '/ADDJET' ,/, 


3 

'*/ 

**************************************************' 

4 

' ****** a:*:*#**#**** ' 

r T74 » '/ADDJE 1 ' ,/, 

5 

'*/ 

**t 


0 

6 

/ 


***' 

rl 74, '/ADD JET' f/f 

7 

'*/ 

*** 


1 HE FLUME SIMULATION IN THIS FAN A' 

8 

'IR 


***' 

? 1 74 , ' /ADDJEl ' f /f 

9 

'*/ 

*** 


KILE WAS 1NLORPORATED WITH I HE ' 

1 

0 


***' 

,1/4, '/ADDJEl ' f/f 

1 

'*/ 

*** 


/ 

2 

0 


***' 

f T74 f ' /ADDJE l ' f/f 

3 

'*/ 

*** 


ADDJET CODE 

4 

0 


***• 

,174, ' /ADDJET ' f/f 

5 

•%/ 

*** 


0 

6 

0 


*** ' 

,174, '/ADDJEl ' f/f 

7 

'*/ 

*** 


WRITTEN BY 

8 

0 


*** ' 

f 1 7 4 f ' /ADDJE 1 ' ) 


FORMAT ( 



1 

'*/ 

*** 

GEORGE A. HOWELL AND ISHWAR C. BHATELE' 

n 

'Y 


***' ,1 74 f '/ADDJE l ' f/f 

3 

'*/ 

*** 

GENERAL DYNAMICS CORPORATION ' 

4 

0 


***' f | 74 f '/ADDJE l ' f/f 

5 

'*/ 

*** 

FORT WORTH DIVISION 

6 

0 


***' ,174, '/ADDJET' f/f 

7 

'*/ 

*** 

KUR1 WORTH, TEXAS 

8 

0 


***' ,174, '/ADDJEl ' f/f 

9 

'*/ 

*** 

PHONE (817) 732-4811 EXTENSION 44' 

1 

'18 


***' , 1 / 4 , '/ADDJEl ' f/f 

1 

'*/ 

*** 

/ 

r> 

0 


***' f 1 74, '/ADDJET' f/f 

3 

'*/ 

*** 

/ 

4 

0 


***' , I74f '/ADDJE l ' ) 

FORMA 1 ( 



1 

'*/ 

*** 

THE 2-D JET CHARACTERISTICS WERE CUMPU ' 

2 

'TED 


***' , r, 4, '/ADDJET' f/f 

3 

'*/ 

*** 

WITH THE RAX JEI PLUME MODELING CODE DEVE' 

4 

'LOPED 

***' f T74 f '/ADDJE 1 ' f/f 

5 

'*/ 

tt* 

BY RICHARD U. WILMOTH 

6 

/ 


***' ,174, '/ADDJET' f/f 

7 

'*/ 

*** 

NA3A/LAN0LE Y RESEARCH CENIER 

7 

/ 


***' , 174, '/ADDJET ' ,/, 

8 

'*/ 

*** 

0 

9 

0 


***' » T 7 4 , '/ADDJEl' f/f 

i 

'*/ 

*** 

0 

2 

0 


***' , T74 , '/ADDJEl ' ) 


FORMAT ( 




1 

'*/ 

*** 

' F ALOfT 70 F '*** /ADDJET ',/, 


2 

'*/ 

*** 



3 

0 


***' , T 74, '/ADDJET' ,/, 


4 

'*/ 

tt* 

ORIGINAL KILE 

= ' , A20 , 

5 



T70 , 'tt* /ADDJET' ,/, 


6 

' */ 

ft* 

NEW K ILL 

' ,A20» 

7 



T70, ' ttt /ADDJE 1 ' ) 
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166 


168 


170 


ORIGINAL Vt ' I ’ J 


FORMAT ( 



OF POOH OohLRY 


1 

' */ 

*** 




' t 

2 



T70 t 'XXX 

/ADD JE 1 ' t/f 



5 

'*/ 

*** 


NOZZLE PRESSURE RATIO 

- • ' . E 6 . 3 1 


6 



T70 t 'XXX 

/ADD JE 1 ' >/» 



7 

'*/ 

*** 


JET EXIT MACH NUMBER 

— ' * F6 . 3 » 


B 



T70r '*** 

/ADDJET ' t / t 



? 

'*/ 

*** 


JET EXIT TEMPERA IURE 

= ' » F- 6 • 1 » 


1 



T70 » '*** 

/ADD JE 1 • t/t 



1 

'*/ 

*** 


NOZZLE LIP ANGLE 

=' »F6.2» 


2 



T70 » ' *** 

/ADDJET ' f/f 



3 

'*/ 

*** 


JET DEFLECTION ANGLE 

= ' »E6.2» 


4 



T70 » '*** 

/ADD JE 1 ' ) 




FORMAT ( 





1 

'*/ 

XXX 



' f 

2 



T70 t 'XXX 

/ADD JET ' r/» 


1 

'*/ 

XXX 

A 

i SOLID PLUME WITH 

NO INFLOW UELUL1T Y' » 

9 



T70 » '*** 

/ADDJET 'f/f 


3 

'*/ 

XXX 


IS SUM1LAT ED IN 

THIS PAN AIR FILE ' » 

4 



T70 » '*** 

/ADDJET ' ) 


FORMAT ( 





1 

'*/ 

XXX 



' , 

9 



T70 1 ' *** 

/ADDJET' f/f 


3 

'*/ 

XXX 



' r 

4 



T70 ? 'XXX 

/ADDJET 'f/f 


5 

'%/ 

XXX 



' » 

6 



T70 » '*** 

/ADDJET ' f/f 


1 

'%/ 

************************************** ************', 


2 '*****************' » 7 74 f '/ADDJET ' f /> 

3 '*/ **************************************************', 

4 '*****************' >1 /4 » '/ADDJET' ) 


WRITE ( 10 ? 172 ) 

172 FORMAT ('*/'?/»'*/') 


IJRITE( 10» 120) LINE 


****** READ AND WRITE NE T WORK DA I A UNTIL EXIT NETWORK IS l-UUND ****** 


20C CONTINUE 

NETWORK -■ 'XXXXXX' 

READ ( 9 » 1 1 0 ) LINE 
I p (LINE(i:2) . EQ . ' * / ' ) 00 Tl) 210 
DO I = 1» 20 
J = I + 3 

IF<LINE< I *. J) .EU. 'NE IW' ) CALL RE AD7 T L ( L I NE » NE 1 WORK ) 
IF ( NETWORK . EQ 4 ENAME ) (HEN 
CALL BLKEXIT(L1NE»CARD) 

IF(CARD.EQ. 'PE 01 ' ) 00 TO 240 
WRITE( 10r 120) LINE 
GO TO 230 
END IF 
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END DO 

210 CONTINUE 

WRITE< 10* 120) LINE 
GO TO 200 


ORIGINAL PAGE Y* 
OF POOR QUALITY 


C ***** READ AND WRITE NETWORK DA ' A UNI1L NfcX’l ’BEGIN* CARD 15 FOUND *** 
C 

230 CONTINUE 

READ (9*110) LINE 
IF(LIHt(112> .EQ. '*/' ) UU IU 23b 
DO I * 1» 20 
J = I + 3 

IF(LINE< I J J ) . EGl. ' BEG I ' ) GU 10 240 
END DO 

235 CONTINUE 

WR I TE ( 1 0 * 120 ) LINE 
GO TO 230 


C******** INSER I PLUME* PLUME BASE* AND WAKE DA I A ********************* 
C 

240 C0NI1NUE 

CALL ADDPLU 
CALL ADDPLBA 
CALL ADDWAKE 

C 

C**********TRANSFER REMAINDER UF CARDS IU NEW FILE ***************** 

C 

WRITE( 10*120) LINE 
260 CONTINUE 

READ<9* 110*ERR=280) LINE 
WRITE( 10* 120) LINE 
GO TO 260 
C 

280 CONTINUE 

WRITE (11* 290 ) 

290 FORMAT ( / * 30X * ' PROGRAM CUMPLEIE') 

RETURN 

END 
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SUBROUI 1NE KEADT1 L(LINE,NE I WORK) 


ORIGINAL r VI- 
OF POOR QUALITY 


SUBROUTINE 'READ! IT* READS 1 ML NE1 WORK TITLE CARD TD 
DETERMINE THL NETWORK NAME. 


CHARACTER LINE*80, NE l WORK *? ) 


*********** READ THE NETWORK TITLE ************************ 
DO I = 1,20 

IF(LINE(I J I ) . EU. ' ) GO TO 230 
END DO 


NOW FIND START OF THE NE I WORK NAME 
238 N1 = 1 + 1 

DO J = 1+1 , 50 

IF(LINE(J1J) .NE. ' ') GO 10 240 
N1 = N1 + 1 
END DO 


FIND END OF THE NE I WORK NAME 
240 N2 » N1 

DO I = J, 50 

IF (LINE( 1 1 I ) .EQ. ' ') THEN 
N2 = I - 1 
GO TO 250 
END IF 
END DO 

250 NETWORK = LINE(Ni:N2) 

C 

RETURN 

END 


no n nnnon 


ORIGINAL PAGE 5C* 
OF POOR QUALITY 

SUBROU'I 1NE BLKEXIT < LINE » CARD ) 

SUBROUTINE * BLKEXIT • PLACES '*/' IN THE FIRST TWO 
COLUMNS UP I HE EXIT NETWORK CARDS TO NULLIFY 
THE INPUT F UR THA I NET WORK ♦ 

COMMON /DUMP/ IDMP(30) 

CHARACTER LINE*80» CARD*4 


WRITE ( 10 » 80 ) 

80 FORMAT ('#/'» T 74 » ' /ADD JET ' r /»'*/'» f 74 » ' /AD JE I ' > 

C 


160 


C 


90 

100 

110 


WRITE< 10, 160) 

FORMAT ( 

1 • */ ' , 10X , '*********>M************************$**#:M:#****^***** ' , 

1 T74, '/ADDJET ',/,'*/' , 

2 10X t ' #** a*********************************** **#:#** ******** ' , 

2 T74 , ' /ADDJET ',/»'*/'» 

3 10X,'** **', 

3 T74, '/ADDJET '»/»'*/'» 

A 10X,'** THE FOLLOWING NETWORK HAS BEEN NULLIFIED **', 

A T7A t ' /ADDJET '»/?'*/'» 

6 10X,'** BY THE ADD JE I CODE **'» 

6 T74, '/ADDJET ',/,'*/' » 

6 10X,'** **' , 

6 T74, '/ADDJET ',/,'*/' , 

7 10X, '**t*********t*.*******t***** *****************%*** <*****' f 

7 T74, '/ADDJET '• . ,'*/' » 

8 10X » ' ******i^****#**r#*************tf ****:M*t************** ' > 

8 T74, '/ADDJE I ' > 

WRITE ( 10,80) 

WRITE (10,90) LINE 

FORMAT ( '*/' » A 70 , T 74 » ' /ADDJE l ' > 

CONTINUE 

READ ( 9 » 1 10 ) LINE 
FORMAT ( A70 ) 


IF ( LINE (1*2) . F 0 . '%/ ' ) GO TO 120 
DO I = 1,20 
J = I -F 3 
CARD = LINE ( I J J) 

IF(LINE( I J J) .EU. 'NET W' ) GO TO 130 

if<line(i:j).eq.'begi') uu to iso 

END DO 

120 CONTINUE 

WRITE (10,90) LINE 
GO TO 100 
C 

130 CONTINUE 
RETURN 
END 
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ORtGWAL ?rr.r 13 

SUBROU I lWt ADDPLU 0F P00R QUALl'iY 

C 

C SUBROUTINE 'ADDPLU * ADDS THE PLUME NE I WORKS 10 

C THE NEW PAN AIR PILE. 

C 

COMMON /DUMP/ IDMP<30> 

COMMON /PLUME/ HP ( 6 > , NP ( 6 > » XP ( 6 , 20 , 20 ) , YP ( 6 * 20 , 20 > » 

1 ZP<6,20,20) ,0P<6, 19, 19) 

C 

DO 400 I = 1,6 
M = MP ( I ) 

N = NP ( I ) 

IF(M.EQ.O) GO 10 400 
C 

C*********** ADD A BANNER BEPURE 1 HE PLUME DATA ************* 

C 

WRITEdO, 100) 

1 0 FORMAT ('*/' ,T/4, ' /ADD JET ',/,'*/' ,V/4, '/ADD JET' ) 

IF(I.EQ.l) WRITEdO, 130) 

130 FORMA I ( 

1 '*/' , 10X, ' ***************************************************** ' , 

1 T74, '/ADDJEl ',/•'*/' , 

2 1CX , ' ***************************************************** ' , 

2 T74 , ' /ADD JET '»/»'*/', 

3 10X,'** **' ’ 

3 T74 , ' /ADDJeT ' ,/,'*/'» 

4 10X,'** T HE PULLOWING NETWORKS SIMULA! £ I HE EXHAUST **', 

4 T74, '/ADDJE1 ' ,/, '*/' , 

6 10X,'** PLUME AND THE OUTFLOW VELOCITIES **', 

6 T74, '/ADDJET ',/,'*/' , 

6 10X, ' ** **'» 

6 T74, '/ADDJET ' ,/»'*/' , 

7 10X , / ***************************************************** ' » 

7 T74, '/ADDJET ' ,/,'*/' , 

8 10X, ' ***************************************************** ' , 

8 T74 » ' /ADDJET ' ) 

C 

WRITEdO, 100) 

C 

C************ WRITE NETWORK TITLE AND CORNER POlNl DATA **************** 
C 

WRITEdO, 130) 1,M,N 

135 FORMAT < 'NE1 WURK= PLUME-SEGMENT- ' , I 1 , SX , 13 , OX , I 3 , T74 , '/ADD JET' ) 

C 

DO K = 1 , N 
DO J = 1, M 

WRITEdO, 140) XP< 1 , J,K) ,YP<1 , J,K) ,ZP( I , J,K> 

140 FORMAT <3P10. 3, T74, ' /ADD JET ' ) 

END DO 
END DO 
C 
C 

C************ WRITE BOUNDARY CONDITION DATA, ETC, ********************* 
C 

WRITEdO, 150) 

150 FORMAT( 'TRIANGULAR PANEL TOLERANCE . 003 ' , T /4 , ' /ADD JET ' ) 

WRITEdO, 160) 
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160 FORMAT ( 'BOUNDARY CONDITION = 2 t UPPER ' » T74 » ' /ADDJEf ' ) 
WRI TE < 10 f 170 ) 

170 FORMAT ( 'SPELIH 1ED FLOW ' f T74 f ' /ADDJEI ' > 

WRITE ( 1 0 » 1B0 ) 

180 FORMAT ( 'TERM = 1' f T74 , • /ADD JET ' > 

WRITEdOf 185) 

185 FORMAT < 'POINT 8 = ALL $ 0 . 0 ' r T 74 r ' /ADD JE I ' ) 


C *************** WRITE 1 ME PLUME UUTHLOW VELOCITIES ***************** 

C 

WRITE ( 10 f 1 00 ) 

WRITE ( 10 f 1 90 ) 

190 FORMAT ( ' */ THE HOLLOWING DATA ARE THE OUTHLUW VELOCITIES' 

1 T74 f ' /ADDJE f ' f / f '*/ THROUGH THE PANELS OF THE '» 

2 'PLUME NETWORK' fT74f '/ADDJEI ' ) 

WRITE(10»200> 

200 FORMAT ( 'POINTS = CENTER ' f T 74 >' /ADD JET ' > 

C 

DO K = I? N-l 
Ml = M - 1 

IF(Ml.EQ.l) WHIT E ( 1 0 » 1 > (VP(I»J.K) »J - 1. M-l) 

IF ( Ml . EQ . 2 ) WRITE ( 10 f 2 ) <VP(IfJ-i\) fJ = If M-l) 

IF(M1.EG.3> WHITE ( 10 » 2 ) (VP(IfJfK) »J = If M-l) 

IF ( Ml . EQ . 4 ) WHIT E ( 10 f 4 ) (VP(IfJfK) fJ - 1» M-l) 

IF ( Ml . EQ . 5 ) WHIT E < 1 0 f 5 ) (VP(IfJfK) tJ = If M-l) 

IF < Ml ♦ EQ . 6 ) WRITE ( 10 ? 6 ) <VP(1 fJfK) fJ = 1» M-l) 

IF(M1.GE.7> WHITE ( 10 f 7 ) <VP(I»J»K) »J = If M-l) 

WRITE ( 1 1 f iOO ) IfJfKf (VP(I» JfK) »J= 1»M-1) 

300 FORMAT (5X;3I4f 15H8. 3) 

END DO 

1 FORMAT (1F10.3fT74f ' /ADD JET ' ) 

2 FORMAT <2H10.3fT74» '/ADDJEI ' ) 

3 FORMAT (3H10.3fT74f '/ADDJEI ' ) 

4 FORMAT (4H 10.3fT 74. '/ADI* JET ' ) 

5 FORMAT ( 5F10. 3 fT74f '/ADD JET ' ) 

6 FORMAT (6H10«3fT74f' /ADDJE I ' ) 

7 FORMAT ( 7H 10 . 3 f 1 74 f ' /ADDJET ' ) 

C 

WRITE( 10f 100) 

C 

C 

400 CONTINUE 
RETURN 
END 
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SUBROUTINE ADDPLBA 
C 

C SUBROUTINE ' ADDPLBA 1 
C THE NEW PAN AIR FILE 
C 


ORIGINAL PAGE IS 
OF POOR QUALITY 

ADDS THE PLUME BASE NETWORKS TO 


COPiMON /DUMP/ IDMP<30) 


COMMON /PBASE/ MPB ( 6 ) » NPB ( 6 ) r XPB ( 6 » 20 » 2 ) » YPB ( 6 » 20 » 2 > t 
1 ZPB ( 6 » 20 » 2 ) 

DO 400 I = 1 » 6 
M = MPB ( I ) 

N = NPB(I) 

IF(M.EQ.O) GO 70 400 


C 

C*********** ADD A BANNER BEFORE I HE PLUME BASE DATA ************* 

C 


WRITE< 10, 100) 

100 FORMAT ( '*/' »r/4:- '/ADD JET ',/,'*/' »T74, ' /ADD JE I ' ) 

T '"( I .EG. 1 > WRITE (10,130) 

130 pURMAK 

1 ' */ ' , 10X » ' ***************************************************** ' f 

1 T74, VADDJEI ',/,'*/'» 

2 10X » ' *****************************************************' 

2 T74, VADDJEI ' ,/»'*/' ? 

3 10X,'** **' 

3 T74 , ' /A UDJE I ',/»'*/'» 

4 10X,'** 1 HE FOLLOWING NETWORKS l-ORM ‘I HE BASE **' 

4 T74, VADDJEI '»/»'*/'» 

6 10X,'** OF THE EXHAUST PLUME **' 

6 T74 » ' /ADD JE I '»/»'*/'» 

6 10X,'** **' 

6 T74, '/ADD JET '»/■>'*/'» 

7 10X , ' ***************************************************** ' 

7 T74 » ' /ADDJE I '»/,'*/'» 

8 10X , ' ****************************************** *********** ' 

8 T74 * ' /ADD JE I ' ) 


C 

WRITE( 10* 100) 

C 

C************ WRITE NE ! WORK TITLE AND CORNER P01NI DATA **************** 


C 

WRITE C 10 * 1 3b ) 1 * M * N 

135 FORMAT ( ' NETWURK-PLUME-BASE-SEG- ' * 1 1 * 5X * 1 3 * 5X * 1 3 * T /4 * 

1 ' /ADD JE I ' ) 

C 

DO K = 1 * N 
DO J = 1, M 

WRITE < 10 * 1 40 ) XPB ( I » J » K ) *VPB( 1 , J,K) , ZPB ( I * J * K ) 

140 FORMAT (31- 10.3»T74, VADDJEI 7 ) 

END DO 
END DO 
C 
C 

C************ WRITE BOUNDARY CONDITION DATA* ETC. ********************* 

C 

WRITE ( 10 , 150 ) 

150 FORMAT( 'TRIANGULAR PANEL TOLERANCE = . 003 ' » 40X t '/ADD JET ' ) 
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URITE< 10r 160) 

160 FORMAT ( ' BOUNDARY CUN Dll 1UN ■« 4 > 8>1 6 » 3 ' » T 74 » ' /AUDJE I ' ) 

LJRITE< 10» 170) 

170 FORMAT < 'SINGULARITY TYPES SA» DA ' » T /4 » ' /ADD JET ' > 

400 CONI 1NUE 
RE T ‘)RN 
END 


ORIGINAL PAGE IS 
OF POOR QUALIFY 
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SUBROUTINE ADDUAKE 


ORIGiNAL PAG t. 

OF POOR QUALITY 


SUBROUTINE ' ADDWAKE* ADDS THE PLUME WAKE NE ! WORKS TO 
THE NEW RAN AIR FILE. 

COMMON /DUMP/ IDMP(30> 

COMMON /WAKE/ MW < 6 ) f NW < 6 ) f XW ( 6 f 2 f 20 > f YW ( 6 f 2 f 20 ) f 
1 ZW( 6 * 2 » 20 ) 


DO 400 I = 1 f6 
M = MW ( I > 

N ■ NU ( I ) 

IF(M.EQ.O) GO TO 400 


C 

C *********** ADD A BANNER BEFORE THE PLUME WAKE DATA ************* 


WRITE < 10 » 100 > 

100 FORMAT ( '*/' t'\ '/At ' /ADDJET ' f/f ' */' f T74 f ' /ADDJET ' ) 
IF(I.EQ.l) WR1TE( 10 f 130) 

130 FORMAT < 


1 '*/' t lOXr ' ***************************************************** ' ? 

1 T74f '/ADDJET 'f/f '*/' t 

2 lOXf '***************************************************** ' t 

2 T74 f ' /ADDJET 'f/f'Jc/'f 

3 10X»'** **'? 

3 T74» '/ADDJET ' f/f '*/' ? 

4 IOXf'** THE FOLLOWING NETWORKS FORM THE WAKE **' t 

4 T74f '/ADDJET ' f/f '*/' t 

6 IOXf'** FROM THE EXHAUST PLUME **' ? 

6 T74» '/ADDJET 'f/f'*/' f 

6 IOXf'** *>c', 

A T74f '/ADDJET' f/f '*/' r 

7 IOXf '***************************************************** ' t 

7 T74 f ' /ADDJET 'f/f'*/'f 

8 IOXf ' **********************************»:****************** ' f 

8 T74 » ' /ADDJET ' ) 

C 

WRITE ( 10 » 100 > 

C************ WRITE NETWORK TITLE AND CORNER POINT DATA ******* ********* 
C 

WRITE( 10» 135) I r M ? N 

135 FORMAT ( ' NETWORK- PLUME-WAKE- SEG- 'f11f5XfI3f5XfI3fT74f 
1 '/ADDJET') 

C 

DO K = IfN 
DO J = If M 

WRITE ( 10 f 1 40 ) XW(IfJfK)fYW( If JfK) fZW(1f JfK) 

140 FORMAT < 3F 10 . 3 f T/4 f '/ADDJE I ' ) 

END DO 
END DO 
C 
C 

C************ WRITE BOUNDARY CONDITION DAIAf ETC. ********************* 
C 

WRITE< 10f 150) 

150 FORMAT ( ' WAKE FLOW PROPERTIES I AG ' f T74 f ' /ADD JE I ' ) 

WRITE( 10f 160) 
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RETURN 

END 
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***************** ********* *******************.************************* 

C 

C 

********************************************************************** 


c 

c 

********************************************************************** 


c 

SUBROUTINE CAL ( N r X r Y r NX , XB t YB > VM » UN » ISM) 

C 

C SPLINE FIT N VALUES Uh Y AS A FUNCTION UF X 

C 

COMMON /ni)MP/ lDhPCiO) 

DIMENSION X(1)?Y(1>»XB(1)?YB(1) 

DIMENSION h P ( 30 ) ,FPP(30) »FPPP<30) tFIP( 100) 

C 


c 


910 

A 


10 

20 

30 

40 


50 


DATA PT/. 33333333333333/ 


IF(IDMP(7) ,EQ.l) URITEdl >910) ( 1 » X ( 1 ) t Y ( 1 ) » I = 1»N) 
FORMA i (///»20Xf 'THE INPUT DATA TO CAL ISJ'»/»20X> 

1 ' I X Y" f/f < 1AX»14»2F10.3> ) 

CONTINUE 
ISM=0 
KM=1 


KN= 1 
N = 1 
M = 1 
I = M 
J = M+K 
DS =X(J)-X(I) 

D = DS 

IF ( DS . EQ ♦ 0 « ) GO TO 150 

DF = (Y( J)-Y< I ) )/DS 
IF (KM-2) 10 » 20 f 30 
U = .5 

V = 3 ♦ * ( DF-VM ) /DS 
GO TO 50 

U = 0. 

V = VM 

GO TO 50 
U = -1. 

V = -DS*VM 
GO TO 50 

I = J 
J= J+K 

DS = X(J)-X(I) 

IF (D*DS.LE.O.) GO TU 150 
DF = (Y( J)-Y(I) >/US 
B = 1 ♦ / ( DS+DS+U ) 

U=B*DS 

V = B* ( A . *DF-V ) 

FP ( I ) = U 
FPP(I) = V 

U = ( 2 • -U ) *DS 

V = A . *DF+DS*V 

IF (J.NE.N) GO 10 40 
IF ( KN-2 ) AO » 70 » BO 


ORIGINAL PACK 
OF POOR QUALITY 
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60 

70 

80 

90 

100 


V = (6.*UN-U)/U 
GO TO 90 
0 = UN 
GO TO 90 

U = <DS*UN+FPP(I>)/(1.+PP<1> ) 
B = U 
D = DS 

DS = X(J>-X(I) 

U = FPP (I)-PP(1)#U 


ORIGINAL PAGE S3 
OF POOR QUALITY 


FPPP(I) = <U-U>/US 
FPP ( I ) = U 

FP(I) = (Y(J)-Y(l)) /US -DS#(U+U+U)/6. 
U = U 


J = I 
I = I-K 

IF ( J.NE.M) GO TO 100 
FPPP(N) = FPPP(N-l) 

FPP(N) = B 

FP ( N ) = DF + D* < FPP (N-l >+B+B)/6« 
IF(NX.EO.O) RETURN 


INTERPOLATION l-UR NX UALUES OF YB AT XB 


J = 0 

DO 140 1=1fNX 
UAL = 0. 

UALP = 0. 

SS = XB ( I ) 

110 J = J+l 

TT = X ( J ) -SS 
IF(TT) 1 10 » 1 30 f 1 20 
120 J = J-l 

SS = SS-X(J) 

UAL = SS*(FP( J) + .5*SS*(FPP( J)+SS*PT*I-PPP( J) > ) 

UALP = SS* ( I- PP ( J ) + . 5*SS*I- PPP ( J ) ) 

130 YB ( I ) =Y ( J ) + UAL 

140 F I P ( I > - • H P ( J > +UALP 

IF( IDMP<7) .EQ.l . > WRITE ( 11 f920) < 1 f X b < I > f YB < I > f I=1fNX) 
920 F0RMAT(///,20Xf 'THE OUTPUT DA I A FROM CAL IS:'f/20Xf 

1 'I XB YB' f/f ( 16Xf 14f2P10.3) ) 

RETURN 
CONTINUE 
WRITE( 11 f 155) 

FORMAT (IXf 'DATA COULD NOT BE ShOGTHELi ' > 

ISM=1 
RETURN 

URITE( 11 f 170) 

ISM = 1 

FORMAT ( / ' SUBROUTINE SPL1H - - - NX=l'/> 

RETURN 
END 


150 
1 55 

l 

160 

170 
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C******** ************************ ********************* 


SUBROUTINE DER ( X » Y » N ? UM » ON ) 
COMMON /DUMP/ IDMP(iO) 
DIMENSION XC1)»Y(1) 


IF C IDMP ( 7 ) . EQ . 1 > UKllkdlilOO) 

100 FORMAT ( // t ' INPUT TO HER ***'» 

1 ' I X<I> Yd)') 

C 

IF( IDMP(7) .EQ. 1 ) WRIT t ( 1 1 » 1 1 0 ) ( L f X ( I ) » Y ( I > , I=1»N) 
110 FORMAT ( 20X » 1 4 » 2F B . 3 ) 

DX31 = X ( 3 ) - X(l> 

DX21 = X ( 2 > - X(l> 

DX32 = X ( 3 > - X ( 2 ) 

DY21 = Y ( 2 ) - Y(l) 

DY31 = Y ( 3 ) - Y ( 1 ) 

UM = DX31 *DY21 /DX21/DX32 - DX21 *DY31 /DXi 1 /UX32 
DX31 « X ( N-2 ) - X < N ) 

DX21 = X(N-l) - X ( N ) 

DX32 = X ( N-2 ) - X(N-l) 

DY21 = Y(N-l) - Y(N> 

DY31 = Y ( N-2 ) - Y ( N ) 

ON = DX31*DY21/DX21/DX32 - DX21*DY31/DXJ1/DX 32 
RETURN 
END 
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OF POOR QUALITY 


SUBROUTINE RAXSUB 

SUBROUTINE RAX JET IS A DUMMY SUBKUUIlNh THAT RETURNS 
A SOLID* L1RCULAR PLUME 1 U I HE AUDJE I CODE. 

THIS ALLOWS THE ADD JET CODE TO BE EXECUIED WITHOUT 
RUNNING I HE RAX JET CODE. 

COMMON /RAXIN/ XNPH * EM JET , TT JET * R JET » I HL1P * ( HE I A J r JDUM , IPR I NT 

COMMOK /RAXOUT / NP ( S » XS1 A ( 30 > » XRATIO < 30 > * XVN < 30 > 

NPTS =11 
XSTA(l) = 0. 

XST A ( 2 ) = .5 
XSTA ( 3 ) = 1. 

XST A ( 4 ) = 2. 

XSTA ( 5 ) = 3. 

XSTA ( 6 ) = 5. 

XST A ( 7 ) = 7. 

XST A ( 8 ) = 9. 

XST A ( 9 ) = 10. 

XST A ( 10 ) = 12. 

XSTA< 11 )=14. 

XRATIO ( 11)= 1.0 

DO 1= 1 * NPTS 

XRATIO(I) = 1.0 
XUN(I) = 0.0 
END DO 


RETURN 

END 


B-56 


ORIGINAL PAG E li 
OF POOR QUALITY 

SlIRROU l 1 WE HAXMAIN 

C PROGRAM RAX Jt I ( 1NPU' fOUlPUl . TAPE1 » TAPL2 » 1 APES f 1 APE4 f TAPES f TAPE6-0U 

C ITPUTfI A^./fI APF8)C CCLCCCCCLCC 
C 

C RAX JET - MAIM LON I ROL PROGRAM 

C 
C 
C 

C************ COMMON BLOCK INPUf BY G.A. HOWELL *t********************* 

C 

COMMON /HOWELL/ RSQGH(30>f RSQDUM f 1 GH f REE L2 
COMMON /HOUELL2/ ISEN 

COMMON /RAXIN/ XMPRV » EM JET9 f TT JET9 f THL 1 P9 f 1 HET A9 , JDUM . 

1 IPRINT f AMINE 9 

C 
C 
C 
C 

COMMON /CASE/ T1(LE(20> 

COMMON /CNTRL/ IMAXf JMAXfMII f NM1N f MM AX f 11 ERA f MO I f ISEPf IUI f IUOfNSEP 
1 . IUAKEf IDPDX 

COMMON /E' REE/ GAM f AMI Ml- f PT f TT f REFL f RE 1 NE fSREE f P 1 ME f ALPHAS ( 6 ) f XS 
COMMON /GEOM/ IXY f 10RDER f XO ( 150 ) f YO ( 1'jO ) f DYDXN 
COMMON /ROUI/ YB(81 > fXB( 81 > rCP(81 > fFM(81 > 

COMMON /SOLN/ P ( 8 1 f 42 ) f BPO ( 81 ) 

COMMON /RLAX/ RE 1 f UE S f COUERG f WB f WBF fX0B(81 ) fY0BC81 ) 

COMMON /XGRID/ XM f DX1 0X0 f DX I DXM , CXM f XBT 
COMMON /YGRID/ DNDYO f ALF f LI ( 8i > f AN ( 4 1 ) 

COMMON /BGRID/ 1X1 r 1 X2 f JY 1 f JY2 f I OFLG 

COMMON /BL0U1 / THR(81 > f US I AR(81 ) f DELI (81 ) fCFA(81 > fHGI (81 ) fREI (81 ) f 
1 FNN ( 81 > fXSEKfXREfLP0(81 ) 

COMMON /COUT/ IOEEfIAETf I OUT f XSTRT f XEMDf ROB f IMAP f JMAP » ALFO 
COMMON /DSL/ 1Sf1XfXDS(81 ) f YDS (81 ) fRDS(81 ) f DEL J f RCMIN f DELE 
COMMON / JE I CM/ XNPR f EM JET f TT JET f R JE1 f THL1P » NMAX J f I GAS f ALPHA J ( 6 ) fGA 
1MJ f IDK 

COMMON /PEX I L/ 1EX I fXEXI (SO) f PEXT ( 30 > f YPLU ( 30 ) fPIN I f XDK f U JET ( 30 ) 
COMMON /B1NPI / IVISfMPSI f E DL f FFF f GGG f S 1GKA f KKAX J f KMAXE f 1 CONTfXJENT 
1 fTKEJf 1KEX 

COMMON /BDSTAR/ BDUM(IO) 

COMMON /BlOUl/ DELJOfXMAXB 

C 

C IF MORE THAN 30 UISC0US/INUISL1D 1IERAI10NS ARE REQUIREDf 

C CHANGE 1 HE DIMENSIONS IN I HE EULLGWING COMMON BLOCK 

C AND IN OOERLAY(IfO) AMD U0ERLAY(6f0/ 

C 

COMMON /LDRAG/ CDPAE I ( SO ) f CDFAFT ( 30 ) f CDPBUD ( SO ) f CDFBOD ( 30 ) 

COMMON /IHIS'1 / ELAG(SO) fRPMAX(30) fRPAOG(SO) fCOOK 
C 
C 

C************ / OPEN STATEMENTS INSERTED BY G.A. HOWELL ************** 

C 

OPEN < UNI 'f -1 f FILE* ' TAPE1 . DA I ' f S I A I US- ' UNKNOWN ' ) 

OPEN ( UN I T = 2f FILE-' TAPE2.DAT ' fS) A I US- ' UNKNOWN ' ) 

OPEN ( UN 1 l - S f E lLE-'l APE3.DAY' f STATUS* ' UNKNOWN ' ) 

OPEN ( UNIT -4 f F ILE- ' 1 APE 4 . DA I ' f STATUS* ' UNKNOWN ' > 

OPEN ( UNI l -6fE 1LE= ' RAX JE1 .OUI ' f SI A I US- ' UNKNOWN ' ) 

0PEN(UN1 I-/fE ILE-MAPE7.DAT' f STATUS* ' UNKNOWN ' ) 
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OPEN (UNIT --8 ? I- ILL- ' TAPE8 . DA ' ? SI A1 US- ' UNKNOWN ' ) 

C 

AMINF = AMINF? 

C 

C CALL THE INPUT KUUI1NL AND PRINT INITIAL LA I A 

C 

REWIND 8 
C 

C CALL OVERLAY ( 4L$UBD ? 5 » 0 ) C C C C C C L L 

CALL INPI 
C 

C INITIAL CALL TO RAXBUD TO SET UP INVISC1D UP1D 

C 

ITERA=0 

C CALL OVERLAY ( 4L*0BD ? 1 ? 0 > L C C C C C C 

CALL RAXBOD 
DO 20 I=2» 1MAX 

IF (XB(I).GT.XB(I-l)) UU TU 20 
WRITE ( 6 r 270 ) 

STOP 

20 CONTINUE 

IF (IOFF.EQ.O) (JO ! U 60 
C 

C DEFINE GRID INDILLS h UR Ut-hBUDY CALCULATION 

C 

1X1 = 1 
1X2=1 
JY1=jMAX 

JY2=2 

DO 40 1=2? IMAX 

IF (XSTRT.LT. Xbd ) ) bU TO 30 
1X1 = 1 

30 IF (XEND.LE.XBC I ) > bU 10 50 

1X2=1 + 1 

40 CONTINUE 

50 CONTINUE 

C 

C SAVE OFFBODY PARAML I LRS 

C 

1X10=1X1 
1X20=1X2 
JY 1 0= JY 1 
JY20= JY2 
XSTRTO=XSTRT 
XENDO=XEND 
ROBO=ROB 
60 CONTINUE 

IOFFO=IOF F 
I0FF=1 
C 

C REDEFINE GRID INDICES FOR B0A1 1NV1SCID HAP 

C 

I X 1 =NHAX 
1X2= I MAX- 1 
JY 1 = JHAX 

JY2= IMAX-KMAXb + 1 
IF (JY2.LE.1) JY2--2 
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c 

c 

c 


70 

C 

C 

C 

80 


90 

C 

C 

C 


100 


110 



130 

MO 

C 

C 

C 

C 

C 

C 

c 


ROB- re ( (WAX ) PAN ( JY2 ) 
XSTRY=XB(NMAX> 

XEND=XB< 1X2) 

DEFINE GRID INDEX AT START OF 


OWQWAL FAG* ! j 
OF POOR QUALITY 

AFTERBODY FUR SEPARATION SEARCH 


NMIN=NMAX 

DO 70 I = 1 r NMAX 

IF (XBT.LT.XB(I) ) GO TO 80 

Nh I N= I 

CONTINUE 

SAVE ORIGINAL BODY GEGME I RY AND INITIALIZE AERODYNAMIC LUNIUUKS 

IXY=IMAX-1 
DO 90 1=1 » IXY 
XOB ( I ) =XB ( 1 ) 

YOB ( I ) =YB ( I ) 

XO ( I ) =XB ( I ) 

YO ( I ) =YB ( I ) 

RDS < I ) =YB ( I > 


INITIALIZE INVISC1D JtT PLUME BOUNDARY 

IEXT=IX2-IX1+1 
IF (IEXT.LE.30) GO TO 100 
WRITE < 6 » 280 ) 

STOP 

CONTINUE 
DO 110 1 = 1 » IEXT 
N= I +NMAX- 1 
XEXT ( I ) =XB < N ) 

TPLU ( I ) =R JET 
XSFP=XS 

IF (ISEP.NE.2) XSEP : XM 


START VISCOUS /I NO I SC ID LUOP 
ITERA=ITERA+i 

RECOMPUTE BODY SLUPE AT NUSE 

DX = XO ( 2 ) -XO ( 1 ) 

DY = Y0(2)-Y0( 1 ) 

IF (DX.LE.DY»1 .E-OJ) UU TU 130 

DYDXN=DY/DX 

GO to MO 

DYDXN-VVV. 

CONTINUE 

CALCULATE INV1SCID EXILRNAL FLOW 

CALL OVERLAY ( 4L*UBD » 1 » 0 > C C C L C C C C 

CALL RAXBUD 

INTERPOLATE Al NEW XB~S FOR Y0» YOB. 
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CALL AIN I PL < IXY f XB f XO f YD f 1 ORDER ) 

CALL AINTPL ( IXY f Xb f XO f RDS f I ORDER ) 

CALL AIN I PL < IXYfXBfXOB. YOBf IORDER) 

C 

C SET XO = XBf YO - YBr AND Yb = YOB 

C 

DO 150 1 = 1 f IXY 
XO£> < I >=XB< I) 

XO( I )=XB( I ) 

YO( I )=YB( I ) 

150 YB ( I ) =YOB ( I > 

C 

C CALCULATE INV1SCID JET EXHAUST 

C 

IF ( I TER A . GT . 10 . AND . XSEP . LT . XM ) GO TO 160 
C CALL OVERLAY ( 4L$UBD f 2 » 0 ) C C C L L L 

CALL SCIPAC 
160 CONTINUE 
I 1=NMAX+1 
DO 170 I=I1fIXY 
170 YB ( I ) =-YPLU (1-11+2) 

C 

C CALCULATE BOUNDARY LAYER AND DISCRIMINATING STREAMLINE 

C 

IMAX=IMAX-1 

C CALL OVERLAY ( 4L*0bD f 3 f 0 > C C C C L C 

CALL VISCOUS 
IMAX=IMAX+1 
C 

C CALCULATE MIXING LAYER AND PLUME DISPLACEMENT 

C 

C CALL OVERLAY ( 4L$UbD f 4 f 0 ) C C C C C 

CALL BOAT AC 

r* 

o 

C MAKE OFFBODY CALCULATION UN PINAL ITERATION 

C 

IF (IOFFO.EQ.O) GU TU 200 
IF (ITERA.LT. MVl ) GO TO 200 
1X1=1X10 
1X2=1X20 
JY1=JY10 
JY2= JY20 
XSTRT=XSTRT 0 
XEND=XENDO 
ROB=ROBO 
C 

DO 180 I=1fIXY 
180 RDS ( I ) =YB ( I ) 

C CALL OVERLAY ( 4L*UBD f 1 f 0 ) L C C C C C 

CALL RAXBOD 
DO 190 I=1fIXY 
190 YB ( I ) =RDS ( I ) 

C 

200 CONTINUE 

IF (XSEP.GE.Xh) GO TO 220 
NR=IS+IX-2 
DO 210 I=ISfNR 
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IC=I-IS+2 

210 YB ( I ) =YDS ( IC > 

220 CONTINUt 

IF ( IOFFO . EQ . 0 . AND , 1TERA . EQ . MVI ) I0FF=0 
C 

C OUTPUT RESULTS 

C 

C CALL OVERLAY ( 4L*UBD » 6 ? 0 > L C C C C C C C 

CALL OUT PI 
C 

C PERFORM UNDERRELAXATION 10 (it I NEW EFFECTIVE BODY 

C 

W=WB 

IF (WB.EQ.UBF.OFJ.HVI.LE.l) GO TO 230 
UI=U3+FLUA1 ( ITERA-1 ) /FLOAT ( MVI-1 ) * ( WBF-ldB ) 

230 CONTINUt 

DO 240 1=1 » IXY 
DELM1=Y0 ( I ) -RDS ( I ) 

RDS(I) 3 W*RDS(I)+(1.-W)*YB< 1 > 

240 Y0( I )=KDSCl)+U*UtLMl+(l . -Id > *DSTAFs ( 1 ) 

C 

C SMOOTH EFFECTIVE BODY StUMETRY FOR SEPARATED F LOW 

C 

IF (XSEP.GE.XM) GO TO 260 

NM1=IS-1 

IM1=IXY-1 

DO 250 N=NM1 » IM1 

CALL SMOOTH < YO ( N ) t YU (W-l ) » YO ( N+l > » XO ( N ) » XO ( N-l ) » X0< N+l ) > 

250 CONTINUt 

YO (IXY) -YU ( INI ) 

260 CONTINUE 
C 

C END OF VISCOUS/INVISCID LOOP 

C 

IF ( ITERA.LT. MVI ) GO TO 120 
C 
C 
C 

C*************** 2 LINES INPUT BY G.A. HUUJELL ********************** 

C 

REFL2 = REF L 

C CALL OVERLAY ( 4LS0BD » 7 > 0 ) C L C C C C C L 

CALL PANEL 

CLOSE ( UNI I =1 » DiSF’USt- ' DELETE ' ) 

CLOSE ( UNI T = 2 f DISF'OSE 3 ' DELE 1 1 ' ) 

CLOSE (UNI (=3 » DISPOSE 3 ' DELETE ' ) 

CLOSE (UNIT =4 » DISPOSE= ' DELET t ' ) 

IF( IPRTNT.EQ.O) CLOSE ( UNIT =6 » DISPOSE 3 ' DELE It') 

IF( IPRINT .EO. 1 ) CLOSE (UNIT =6 * DISPOSE 3 ' KEEP ' ) 

IF ( IPRINT . EQ . 2 ) CLOSE (UNIT -6 f DISPOSE* 'PRINT /DELETE ' ) 

IF( IPRINT. EQ. 3) CLOSE ( UNIT -6 t DISPOSE 3 'PR INT ' ) 

CLOSE (UNIT=7» DISPOSE 3 'DELETE' ) 

CLOSE (UNI I =8 » DISPOSE- ' DELE It') 

C 

C 

c B-61 

C 




270 

280 


FORMA I (1H1»V0H*** GRID PARAMETERS GWE BAD I KANSF ORMATION , TRY D 

1ECREASING CXM OR INCREASING DX1DXM ***> pr 

FORMA I (1H1.101H*** NUMBER OF AXIAL GRID PUlNlS IN JET EXHAUST REG 

1 ION EXCEEDS MAXIMUM ALLOWED » fKY INCREASING CXM ***> 

END 
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SUBROUTINE INPI 
C 

C MAIN INPUT PROGRAM 

C 


ORIGINAL PAGE !9 
0F POOR QUAUTV 


C************ THREE COMMON BLOCKS A DUEL' BY G . A ♦ HOWELL ***************** 
COMMON /HQWELL2/ ISEN 

COMMON /RAX1N/ XNPR9 f EM JET9 f TT JET9 r T HL IPV t I HE I A? » JDUM f 
1 IPRINT fAMINF9 

COMMON /RAXOUT / NKl S f XSTA < 30 ) ? XRAT 10(30) fXVN(30) 


C 


COMMON /CASE/ TITLE ( 9 ) 

COMMON /CNTRL/ IMAX r JNAX r MI T f NM I N » .‘MAX f l'l ERA f MV1 f 1SEP f IUI f IUU • NSEP 
1 f 1 WAKE r IUPLIX 

COMMON /FREE/ GAM » AMINE fPI t TT » REFL fREINF fSREF fPINF » ALPHAE ( 6 ) fXSEP 


COMMON /GEON/ 1XY » 1 ORDER f XC ( 150 > f Q< 150 > f UYDXN 
COMMON /RLAX/ RF 1 ? QF3f COVERS f WB f WBF 
COMMON /XGRILi/ XM f DX IDXO f DXI DXM . C <M f XBT 
COMMON /YGR1D/ UWUYUfALR 


COMMON /BGRID/ 1X1 f IX2f JY1 fJY2 

COMMON /COUT/ IOFF , I AFT f IOL ' f XS'I RT f XEND f ROB • IMAP f JMAP f ALFO 
COMMON /JET CM/ XNPRfEMJET, JE I f R JET f T HLIP f NMAX J f IGAS f ALPHA J ( 6 > f GA 
IMJfIDK 

COMMON /B1NPT / 1V1S f MPS1 f R DL f FFF f GGG SIGMA f KMAXJ f KMAXE f TCONl fXJENT 
1 fTKEJfTKEX 
DIMENSION S< 150) 

NAMELIST /CNTRLN/ IMAX f JMAX f MIT f MVI f ISEPfIUI f 1U0 f NSEP f 1 WAKE f XSEP 
1 fIDPDX 

NAMELIST /FSC/ GAM f AMINF f P I r TT r RER L f SREF f ALPHAE 
NAMELIST /GEOMN/ IXY f IORDFR f XU f YO 
NAMELIST /RELAX/ RF1 f OP 3 f CUVERG f UB f WBF 
NAMELIST /GRID/ XBTfXMfDXIDXOfDXIDXMfCXMfDNDYOfALF 
NAMELIST /OUT PTC/ IOFF f IAFTf IOUTfXSTHT f XEND f ROB f IMAP f JMA r f ALFO 
NAMELIST /JET HAT/ XNPR f EM JET f TT JET fRJET fTHLIP f NMAXJ f IGAS f ALPHA J f GA 
IMJf IDKf ISEN 

NAMELIST /MIXDAT/ I VIS f KPS1 f R DL f FFF f GGG f SIGMA f KMAX J f KMAXE f T CONT f X J 
IENTfTKEJfTKEX 
C 

C********* ONE LINE INPUT BE G.A. HOWELL **************************** 
CHARACTER TITLE*10 

C 

C 

C SET DEFAULT VALUES 

C 

WRITE ( 11 f5> XNPRVfEMJEI 9fT T JE I 9 f 7 HL IP9 f THETA9 f AM I NR 9 
5 FORMAT(//f' IN SUBRCU l 1NE INPTf COMMON RAXIN = 'f6RB.2f/> 

C 

ISEN = 0 
I DPDX=0 


ID=81 
JD=4 1 
IXYD=1 40 
IS1=0 
IS2=0 
IMAX = ID 
JMAX= JD 
MIT=20 
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M0I = 1 
ISEP=0 
NSEP=1 
IUAKE=0 
XSEP=- 1 ♦ 0 
IUI=0 
IU0=0 
GAM=1 « 4 
PT=-1 .0 
TT=-1 . 0 
REFL=-1 .0 
SREF=0.0 
I0RDER=1 
RF1 = 1 • 4 
QF3=0. 1 
C0VERG=1 .0 
UB=0 . 5 
UBF=0.5 
CXM=0 * 75 
ALF=1 .3 
I0FF=0 
I AFT =0 
I0UT =0 
I MAP=25 
JMAP=25 
ALF0=1 .0 
AMINF=0 . 0 
IXY=0 
D YBXN=0 . 0 

PI =3. 1415926530898 
DO 20 1 = 1 ■» IXYD 
XO ( I )=-99. 

YO ( I ) =-99 « 

XBT=0.0 
XH=0 « 0 
DXIDX0=-1 . 
DXIDXM=-1 . 

DNDYO=— 1 . 

XSTRT =- 1 . 

XEND=- 1 . 

R0B=-1 * 

XNPR=0 . 0 
EMJET=1 .05 
TT JET =-1.0 
R JET =0 . 0 
THL IP=0 . 0 
NMAX J=8 1 
I GAS=0 
GAM J=0 » 0 
I DK=0 

ALPHA J ( 1 )=0. 79 
ALPHA J ( 2 ) =0 . 21 
ALPHA J ( 3 ) =0 . 0 

ALPHA J ( 4 ) =0 . 0 
ALPHA J ( 5 ) =0 . 0 

ALPHAJ(6)=0.0 

I0IS=-2 
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MPSI=31 
FDL=1 . 0 
FFF=0 . 065 
GGG=0 . 08 

TKE J=1 ♦ 0 ORIGINAL PAG£ \Z 

TKEX=1.0 GF POOR QUALITY 

SIGMA=l .0 

KMAX J=25 

KMAXE=25 

TC0NT=-99. 

X JENT=15 . 

ALPHAE f 1 ) =0 . 79 
ALPHAE ( 2 ) =0 . 21 
ALPHAE ( 3 ) =0 • 0 
ALPHAE ( 4 ) =0 . 0 
ALPHAE < 5 ) =0 • 0 
ALPHAE ( 6 ) =0 . C 
C 
C 

C**#*******THE E0LLUW1NG CARDS WERE MODIFIED OR ADDED BY G . A . HOWELL CCS 
C 

C READ CASE 1 1 I LE 

C 

C READ ( 5 f 7R0 t END-30 ) TITLE 

C GO TO 40 

C IF ( EOF ( 5 ) > 30 t 40 

C 30 WRITE (6r800> 

C STOP 

C 40 CONTINUE 

C 


c 

READ 

INPUT DATA 

c 

c 

READ 

(SfCNTRLN) 

c 

READ 

<5fESC) 

c 

READ 

(SfJETDAI ) 

c 

READ 

( 5 f K1XUAT ) 

c 

READ 

( 5 f RELAX ) 

c 

READ 

(SfGRID) 

c 

READ 

(5f GUT PTC) 

c 

READ 

(SfGEOMN) 

c 

. CALL 

INPT2 


WRITE ( 1 1 f 45 ) XNPR » EM JET , TT JET , THL 1 P . AMINE 
45 FORMAT(//f ' IN SUBRUUl INE INPT AND AE T ER 1NPT2f I HE VALUES IN' . 

1 ' COMMON /RAX1N/ ARE i ' » /r ' XNPR » EMJE1 r TT JET » THLIP'f 


2 ' AM I NF ' f / f 5E 9 . 2 f / ) 

WRITE ( 1 1 f 46 ) IXYfRJE l fXSTRTfXENDfRGBf UfXU( I ) fYU< 1 > f I = 1.10) 

46 FORMAT (/r' 1XY = 'fI8f/f' RJEI -• 'fE10.3f/f' XSTRT = 'fF10,3./f 

1 ' XEND =- ' fF10.3f/f ' RUB - 'fE10.3f/f' I XO(I) YG(1)'f/ 

2 CI5f2FS«2> ) 

C 

C 

C********************************* *********************************** *4 ;* 

C 

C 

C 

CALL DATE (DAY) 




ORIGINAL PAGE IS 
CALL CLOCK (TIME) OF POOR QUALITY 

I NAME=0 

50 INAME=INAME+1 
WRITE (6,1 430 ) 

WRITE (6,1390) 

WRITE (6,1 400 ) 

WRITE (6,1410) TITLE 
WRITE (6,1 420 ) DAY, TIME 
IF (INAME.EQ.l) bU TU 00 
C 

C CONVERT INPUT TU INTERNAL UNITS 

C 

IF (IUI.EQ.O) GO TO 60 
REFL=REFL/0.3048 
SREF=SRtl-/0. 3048**2 
PT=PT*21 16. 

TT =TT* 1 . 8 
TTJET=TTJET*1.8 
TCONT=TCONT* 1 .8 

60 IF (REFL.Lt .0.0) REFL=1.0 

IF (PT.LE.O.O) PI--2116. 

IF ( TT . Lb. .0.0) 11-530. 

IF (TTJET.LE.O.O) TfJEf=-530. 

CCC TT JET •- TTJbf/1.8 

TC0NT=TC0NT/1 .8 
C 

C CHECK FOR INVALID INPUT 

C 

WRITE ( 6 » 790 ) 

IF (IOUT.GT .MVI> I OUT=MV I 
IF (SREF.EQ.O.O) SRbh -0 . 25*P 1 *KEFL**2 
IF (REFL.bl .0.0) GO TO 70 
WRITE (6,810) 

IS1 = 1 

70 IF (SREF.GT.O.O) GO TO 80 

WRITE (6,820) 

IS1 = 1 

80 IF ( AMINF . GT .0.0) GO TO VO 
WRITE (6,830) 

IS1 = 1 

90 IF (IXY.GT.3) bU TO 100 
WRITE (6,840) 

IS1 = 1 

100 IF (XBT.GT.O.O) GO TO 110 
WRITE (6,850) 

IS1 = 1 

110 IF (XM.GT.O.O) GO TU 120 
WRITE (6,860) 

IS1 = 1 

120 IF (XBT.LE.XM) bU TO 130 
WRITE (6,870) 

IS1 = 1 

130 CONTINUE 

IF (IXY.GT.IXYD) bU TO 260 
ICX=0 
ICY=0 
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DO 140 I- 1 » 1XYD 
IF (X0(I) .EQ. -99. > ICX=1C>;+1 
IF (Y0( I) .EU.-V9. > ICY=ICY+1 
140 CONTINUE 

ICX=IXYD-ICX 
ICY=IXYD-ICY 
IF (ICX.EQ.IXY.6ND.ICY.EQ.IXY) GO 10 150 
IS1 = 1 

IF (ICX.NE.IXY) WRilE (6.910) 

IF (ICY. NE. IXY) WRITE (6.920) 

GO TO 260 
150 CONTINUE 

DO 160 1-2 » 1XY 

IF ( XO ( I ) * GT •XO(l-l)) GO 10 16!) 

WRITE ( 6 » 930 ) 1 . XO ( 1 > 

IS1 = 1 

160 CONTINUE 

DO 170 1=1. IXY 
11 = 1 

IF (XO(I> .LE.XM) GO 10 1/0 
11=1-1 
XM=XO( II ) 

WRITE ( 6 » 940 ) II. XK 
GO TO 180 
170 CONTINUE 
180 IXY=I1 

DO 190 1=2. IXY 

IF (YO(I> .01 ,Y0< 1-1) > GO TO 190 
11 = 1 

GO TO 200 
190 CONTINUE 
200 CONTINUE 

YMIN=0. 1*Y0( 11-1 ) 

DO 220 1=1 1 » IXY 
DY=Y0(I)-Y0(1-1> 

DX=XO ( I ) -XO ( 1-1 ) 

IF (DX.G1 .0.0) GO TO 210 
WRITE ( 6 f 960 ) XO(I) 

IS1 = 1 
GO TO 220 
210 DY_DX=DY/DX 

IF (ABS(DYDX).GT .1.0) WRITE (6.950) I.XO(l) 

IF (YO(I).GE.YMIN) GO TO 220 
WRITE (6.V70) 

IS1 = 1 

220 CONTINUE 

IF ( I OFF . EQ . 0 ) GO 10 260 

IF ( IMAP+JMAR . LE . 100 > GO TO 230 

IMAP=50 

JMAP=50 

WRITE (6.890) 

230 IF (ALFO.GT.O.O) GO TO 240 
WRITE (6.900) 

ALF0=1 .0 
240 CONTINUE 

IF ( XSTRT . GT . XENL1 ) GO TO 250 

IF ( XSTRT . GE .0.0. AND . XEND . GT .0.0. AND . KUb . G I .0.0) GO TO 
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250 WRI1L (6.880) 

IOFF =0 

260 IF (IMAX.LE.lD.ANU.JMAX.LL.JLi) GO TO 270 
WRITE (6.9P0) !D.JL) 

IF (IMAX.Gl.UD 1 MAX* ID 
IF (JMAX.GT.JD) JMAX=JU 

270 IF (GAM. Gl. 1.0) GO TO 280 
WRITE (6.990) 

IS1 = 1 

280 IF (GAM. LT. 2.0) GO TO 290 
WRITE (6.1000) GAM 
IS2=1 

290 CONTINUE 

IF (PT.GI .0.0) GO TO 300 
WRITE (6.1010) 

IS1 = 1 

300 IF (TT.GT.O.O) GO TO 310 
WRITE (6.1020) 

IS1 = 1 

310 IF (ISEP.NE.2) GO TO 320 

IF (XSEP.Gt.XBl .ANU.XSEP.LE.XM) GO TO 320 
WRITE (6.1030) 

IS1 = 1 

320 IF (IXY.LE. 1XYL1) GO TO 330 
WRITE (6.1040) 

IS1 = 1 

330 IF (IORDER.Gh.l) GO TO 340 
WRITE (6.1050) 

I0RDER=1 
IS2= 1 

340 IF ( I0RDER.LL.2) GO TO 350 
WRITE (6.1060) 

IORDER=? 

152=1 

350 DY=YO ( 2 ) - .'0 ( 1 ) 

DX=XO ( 2 ) -XO ( 1 ) 

IF (DX.GT.O.O.ANO.DY.GT.O.O) GO TO 360 
WRITE (6.1070) 

151 = 1 
GO TG 370 

360 DYDXN=DY/DX 

IF (DYDXN.Gt . 1 .t03) LiYUXN=- 999 . 

370 IF (RF1 .GT.O.O.ANLi.KH .LI .2.0) GO TO 380 
WRITE (6.1080) 

IS1 = 1 

380 IF (QF3.GE.0.0) GO TO 390 
WRITE (6.1090) 

IS1 = 1 

390 IF (WB.GE.O.O.ANU.WB.LL.l.O) GO TO 400 
WRITE (6.1100) 

IS1 = 1 

400 IF (WDF.GE.O.O.ANU.WbT . LE • 1 . 0 > GO TO 410 
WRITE (6.1110) 

IS1 = 1 

410 IF (CXM.GT. 0.0. ANU.CXM.LT. 1 .0) GO TO 420 
WRITE (6.1120) 

CXM=0 . 75 
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I S2= 1 

420 IF (ALF.GT.O.O) GO 10 430 
WRITE ( 6f 1 130 ) 

ALF=1 .3 
I S2= 1 

430 NMAX=INT ( CXK#I- LOAT ( IHAX ) )+l 
IF < NNAX . GE . 4 ) GO TO 440 
WRITE ( 6 f 1 1 40 ) 

IS1-1 

440 IF (DXIDXO.uT.O.O) GO TO 400 
WRITE ( 6 f 1 150 ) 

DXIDX0=0 .0 
I S'? =2 

450 IF (DXIDXM.GT .0.0) GO TO 460 
WRITE ( 6 f 1 160 ) 

DX IDXM=0 . 0 
IF (IS2.LT. 2) 1S2 ;: 3 
IF (IS2.EQ.2) IS2 :: 4 

460 IF (DNDYO.GT .0.0) 00 TO 470 
WRITE ( 6 ? 1 170 ) 

DNDY0=0 . 0 

IF (IS2.LE.1) IS2 :: 0 
IF (IS2.EQ.2) IS2-6 
IF (IS2.EQ.3) 1S2»7 
IF (IS2.EQ.4) IS2-8 

470 CONTI Z 

IF (XNPR.GT.O.O) GO TO 480 
WRITE ( 6 f 1210 ) 

IS1 = 1 

480 IF (EhJET »G1 . 1.0) GO TO 490 
WRITE ( 6 f 1220 ) 

IS1 = 1 

490 IF (TTJET.GT.O.O) GO TO SCO 
WRITE ( 6 f 1 230 ) 

IS1 = 1 

500 IF (RJET.GT.O.O) GO TO 510 
WRITE ( 6 f 1240 ) 

IS1 = 1 
GO TO 530 

510 IF (RJET.LE.YOdXY) ) 00 TO 520 
WRITE (6 f 1250) 

IS1 = 1 
GO TO 530 

520 IF ( R JET .EQ.YO(IXY)) GO TO 530 
DUM=YO ( 1 XY ) -KJb I 
WRITE (6 f 1260) UUH 

530 IF (ABS(THLIH) .LI .90. ) 00 10 540 
WRITE (6 f 1270) 

IS1 = 1 

540 IF (NNAXJ.Lt .81 ) GO' 1 0 550 
NMAXJ=81 

WRITE ( 6 f 1 280 ) NKAXJ 

551. IF < IGAb.GE.O. AND. IGAS.LL .3) GO 10 560 
WRITE < 6 f 1 290 ) 

IS1 = 1 

560 IF (IGAS.EO.O) GAMJd.4 
IF ( IGAS .0 I . 1 ) GO 10 570 
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IF (GAMJ.GT . 1 .0) GO TO 370 OF POOR QUALITY 

WRITE < A » 1 300 ) 

ISl-l 

370 SUM=0 . 0 

DO 380 I =* 1 » A 
580 SUh=SUM+ALPHAJ( I ) 

IF ( SUM . LE . 1 . 01 . AND ♦ SUM . Gt . 0 . VV > GO TO 390 
WRITE ( A » 1410 ) 

IS1*1 

390 CONTINUE 
C 

C EXTEND INPUT COORDINATES OVER Jt I EXHAUST 

C 

DO AOO I=lflO 
N-IXY+I 

XO < N ) =X0 ( IXY ) +FLOAT ( I ) JLT 
AOO YO ( N ) --KJLT 
IXY=IXY+10 

IF ( IVIS.EQ.2.0R. IV1S.EQ.0.0R. IVIS.tO.-2) GO TO A10 

WRITE (A» 1320) 1VIS 

IVIS=-2 

A10 IF (MPSI.LE.50) GO TO A20 
WRITE ( A » 1 330 ) MRSI 
hPSI=50 

A20 IF (FDL.LE.1.0) GO TO A30 
WRITE ( A » 1 340 ) FDL 
FDL=1 • 0 

A30 IF (KMAXJ.Lt .2*3) GO TO A40 
WRITE (A»1300) KMAXJ 
KMAX J=25 . 

A40 IF ( KMAXE . Lt . 20) GO TO A30 
WRITE ( A r 1 3A0 ) KMAXt 
KMAXE=25 

A50 IF (TCONT.Lt .0. ) TC0NT=400 . /Y LUAT ( UPS I -1 ) 

IF < XJEN I . Gt . 2 . 0 . AND . X JENT . LE . 30 . 0 ) 60 TO AAO 
WRITE ( A » 1 370 ) X JtN I 
AAO SUM=0.0 

DO A70 I = 1 » A 
A70 SUM=SUM+ALPHAE( I > 

IF (SUM.LE. 1 .01 . AND. SUM. Gt O.VV) GO TO A80 
WRITE (At 1380) 

TS1 = 1 

A80 CONTINUE 

IF (ISl.GT.O) GO TO /AO 

IF (IS2.EQ.0) GO TO 700 

IF ' IS2.EQ. 1 ) GO TO 740 

C 

C CALCULATE GRID PAKAMEltRS IT NttDtD 

C 

S(1)=0.0 

IH=IXY 

DO 720 I = 2 » I XY 
DY=YO( I )-Y0( 1-1 ) 

IF ( I .LT. iH) GO TO A90 
DY=0 . 0 
GO TO 700 

A90 IF (DY.LE.O.O) iH- 1-1 
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700 S(I)-S(1-1)+SQRT( (X0( 1 >-XU( 1-1 ) >**2+DY**2> 

IF (XO(Z).(il.XBl > GO TO 710 
S1»S(I) 

710 IF (XO(I).QT.Xh) GO TO 730 
S2=S( I) 

720 CONTINUE 

730 CALL UPTIM ( 1S2 , 1MAX , JMAX , S 1 , S2 , CXM , DX1 DXU , DX 1 DXM , DNDYO * ALF ) 
NMAX=INf (CXMtFLOAT ( 1 MAX-1 ) ) + l 
GO TO 770 

740 WRITE v 6 » 1200 ) 

GO TO 770 

750 URTTE (6,11 VO ) 

GO TO 770 

760 WRITE (6.1180) 

STOP 

770 CONTINUE 

CALL IOUTPT 
C 

780 FORMAT (8A10) 

790 FORMAT (1H1.23H WARNING MESSAGES ,//> 

800 FORMAT (1H1.38H END-UF-FILE ENCOUNTERED ON INPUT FILE) 

810 FORMAT (49H /REFERENCE LENGTH ZERO OR NEGATIVE. TRY AGAIN/) 

820 FORMAT (4/H /REFERENCE AREA ZERO OR NEGATIVE. TRY AGAIN/) 

830 FORMA I Cj/H /FREESTREAM MACH NO. NOT GIVEN OR NEGATIVE. TRY AGA1 

IN/) 

840 FORMAT <90H /NO. OF INPUT COORDINATES. IXY. EITHER NOT GIVEN OR 
1 TOO SMALL (MUST BE > 3). TRY AGAIN/) 

850 FORMAT (55H /START OF 30ATTAIL NOT GIVEN OR NEGATIVE. TRY AGAIN/ 
1 ) 

860 FOPMAT ( 49H /END OF BODY NOT GIVEN OR NEGATIVE. TRY AGAIN/) 

870 FORMAT (OVR /START OF AFTERBODY GREATER THAN BODY LENGTH, TRY AG 

IAIN/) 

880 FORMAT (80H OFF BODY COORDINATES NOT GIVEN OR NOT PROPER. NO OFFB 

10DY CALCULATION ATTEMPTED) 

890 FORMAT ( 86H TOTAL MAPPED POINTS FOR OFFBODY FL0WF1ELD EXCEEDS 10 

10, I MAP , JMAP CHANGED TO 50 EACH) 

900 FORMAT ( 40H ALFO MUST BE > 0 , ALFO CHANGED TO 1.0) 

910 FORMAT (OOH /NO. OF INPUT X -COORDINAT ES DOER NOT EQUAL IXY/) 

920 FORMAT (50H /NO. OF INPUT Y-COORDlNAl ES DOES NOT EQUAL IXY/) 

930 FORMAT (J1H /BAD VALUE IN X-APHA'' AT I -*,I5,6H, X = ,F*li.4,12H, 

1 TRY AGAIN/) 

940 FORMA I CjJH INPUT COORDINATES GIVEN BEYOND SPECIFIED XM, ONLY , I 

15.37H VALUES WILL BE USED AND XM RESET TO ,F12 6) 

950 FORMAT (34H BODY SLOPE > 40 DEGREES AT I = .I5.6H, X •- ,F 12.6,36 

1H, UNRELIABLE RESULTS MAY BE PRODUCED) 

960 FORMA I (33H /BAD VALUE UF X-COORDINATE AT .F12.6.34H GIVES NEGAT 

1IVE OR INFINITE SLOPE/) 

970 FORMA I (0/H /AFTERBODY CLOSURE > 90 % OF MAX. DIAMElEK, TRY AGA I 

IN/) 

980 FORMAT (J2H GRID SIZE EXCEEDS MAXIMUM UF .I5.4H BY .I5.54H ALLOW 

1ED » IMAX AND/OR JMAX REDUCED TO MAXIMUM VALUE ( S ) ) 


990 

FORMA 1 

(43H 

/INPUT 

VALUE OF 

GAM 

.LE. 

1.0, TRY AGAIN/) 

1000 

FORMAI 

( 46H 

INPUT 

VALUE UF 

GAM 

.GE. 

2.0, IS THIS RIGHl?) 

1010 

FORMAT 

( 40H 

/INPUT 

VALUE OF 

PT 

.LE. 

0, IRY AGAIN/) 

1020 

FORMAT 

( 40H 

/INPUl 

VALUE OF 

TT 

.LE. 

0. TRY AGAIN/ > 

1030 

FORMAI 

(60H 

/XSEP 

NOT GIVEN 

OR 

NOT UN BOA I T All. F uR ISEP = 2 


IGA IN/ ) 
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1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1 340 

1350 

1360 
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FORMAT ( 42H 
1 AGAIN/ ) 
FORMA I ( 60H 
1SUMED) 
FORMAT ( 60H 
1SUMED) 
FORMAT (55H 
1 > 

FORMA I ( 58H 
1 1 N/ ) 

FORMAT ( 43H 
FORMAT (57H 
IN/ > 

FORMAT (5SH 
1 1 N/ ) 

FORMAT (70H 


/INPUT VALUE OF 1XY EXCEEDS MAXIMUM OF .15.12H. TRY 

INPUT VALUE OF IORDtK < 1 NOT ALLOUED. lURDEFi '• 1 AS 

INPUI OALUE OF I ORDER > 2 NOT ALLOUED. IORDER * 2 AS 

/INPUT COORDINATES AT NOSE GIVE BAD VALUE FOR DYDXN/ 

/INFUl VALUE OF RF 1 NOT IN THE RANGE 0 TO 2. 1RY AGA 

/INPUT VALUE OF 0F3 NEGATIVE. TRY AGAIN/) 

/INPUI VALUE OF Ub NOT IN THE RANGE 0 TO 1. I RY AGA I 

/INPUT VALUE OF UbF NO! IN THE RANGE 0 TO 1 . TRY AGA 


INPUI VALUE OF CXM NOT IN THE RANGE 0 10 1. A VALUE 


10F 0.75 ASSUMED) 


FORMAT 

( 52H 

INPUT VALUE OF 

ALF .LE 

! • 0 * 

A VALUE 

OF 1 

.3 ASSUMED) 

FORMAT 

C/'/H 

/INPUT VALUE OF 

CXM GIVES 

< 4 GRID 

POINTS ON 

THE 

BOD 

1 Y » TRY 

INCREASING CXM/) 









FORMAT 

( 81H 

INPUT VALUE OF 

DXIDXU 

NUT 

GIVEN 

OR 

< 0. 

UILL 

TRY 

TO 

1CALCULATE AN 

OPTIMUM VALUE) 









FORMAT 

(blH 

INPUT VALUE OF 

DXIDXM 

NOT 

GIVEN 

OR 

A 

O 

<• 

UILL 

TRY 

TO 

1 CALCULA 1 E AN 

OPTIMUM VALUE) 









FORMA 1 

( y i h 

INPUT VALUE OF 

DNDYU 

NOT 

GIVEN 

OR 

A 

O 

* 

UILL 

TR V 

"0 

1CALCULA 

IE AN 

OPTIMUM VALUE) 









FORMAT 

(///» 

e»2H INPUT ERRORS ENCLUSEU 

i BY / 

/ 

ARE 

FATA 

R* 

IS 


1 ABORTED ) 

•ORMAT ( 12H0 NONE ) 


FORMAT ( /// » 82H IF ANY INPUI PARAMETERS WERE CHANGED. RUN WILL 

1BE ATTEMPTED UITH NEW VALUES ) 

/NOZZLE PRESSURE RATIO N01 GIVEN OR NEGATIVE. 1 RY AG 

/INPUT VALUE OF EM JET .LE. 1.0. TRY AGAIN/) 

/INPUT VALUE OF TTJE1 .LE. 0. TRY AGAIN/) 

/INPUI VALUE OF R JE I 0. 1 RY AGAIN/) 

/INPUT VALUE OF RJET > YO(IXY). TRY AGAIN/) 

NOZZLE GEOMETRY GIVEN HAS A BASE THICKNESS OF 


FORMAT 

(5VH 

AIN/) 


FORMAT 

(45H 

FORMA l 

( 43H 

FORMA 1 

( 3VH 

FORMA 1 

(45H 

FORMA 1 

(49H 


>f i: 


1.46H. TOO LARGE A BASE MAY GIVE UNRELIABLE RESULTS) 


FORMAT ( 49H 
FORMAT ( 52H 
1 ) 


/NOZZLE EXIT ANGLE .GE. 90 DEGREES- TRY AGAIN/) 
JET GRID SIZE EXCEEDS MAXIMUM ALLOUED. REDUCED TO 


FORMAT ( 63H 
1Y AGAIN/) 
FORMAT ( 40H 
F0RMA1 (65H 
1 TRY AGAIN/) 
FORMAT ( 47H 
iO -2) 

FORMA I (4 3H 
1 ) 

FORMAT ( 40H 
10 ) 

FORMAT ( 45H 
125) 

F'ORMAT ( 45H 
125) 


/INCORRECT VALUL FOR IGAS. MUST BE 0. 1. 2. OR 3. TR 

/GAM J N01 INPUI OR .LE. 1. TRY AGAIN/) 

/SUM OF JE I MOLE FRACTIONS NOT UI1H1N 1 % OF UNITY. 

I VIS MUST BE -2. 0. OR 2. IV IS CHANGED FROM .I5.6H T 

MPSI MUST BE .LE. 50. MPSI CHANGED FROM .I5.6H TO 50 

FDL MUST BE .LE. 1. F DL CHANGED FROM .F12.6.7N TO 1. 


KMAXJ 

MUST 

BE 

.LE. 

25. KMAXJ 

LHANGF D 

FROM 

. I5.6H 

TO 

KMAXE 

MUST 

BE 

.LE . 

25. KMAXE 

CHANGED 

FROM 

. 15.6H 

TO 
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1380 

1390 


1400 


1410 

1420 
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FGKMiVi ( JtiH MIXING CALCULA1 ION EXlENUS GOER .F12.6.40H JE I ECAUii 
1. CHECK INPUT JALUE OF XJENl.) 

FORMA ( ( 70H /SUM OF EXTERNAL MULE ENACTIONS NOT WITHIN 1 V. OE UN 
1 1 TY » IKY AGAIN/) 

FORMA I ( l*j</> *20X»71HRRRRF!RRR AAAAAA XXX XXX JJ 

1J EEEEEEttLL TTTTTTTTTT1 > / » 20X > V 1HKRRRRRRRR AAAAAAAA XXX 

2 XXX JJJ EEEEEEEEEE VI I TTTTTTTT » / r 20X » 6 7HKKR KRR AAA 

3 AAA XXX XXX JJJ EEE M l » / » 20X » A7HRRR 

4 RRR AAA AAA XXX XXX JJJ EEE TTT./f 

520X » A7HRRR RRR AAA A 'in XXXXXX JJJ EEE 

6 TTT » / ? 20X 1 67HRRRRRKKKKK AAAAAAAAAA XXXX JJJ 

7EEEEEEEE T II r / r 20X * 67HKRRRRRRRR AAAAAAAAAA XX 

G JJJ EEEEEEEE TT) ) 

FORMA I (20X» o7HRRRRR AAA AAA XXXX JJJ EEE 

1 TTT > / * 20Y, 1 6 /HKRRKRR AAA AAA XXXXXX 


2 JJJ EEE 

3 XXX 


JJJ EEL 


TTT * / » 20X » 67HRRR RRR AAA AAA XXX 

TTT ? / » 20X » 67HRRR RRR AAA 


4 AAA XXX XXX JJJ JJJ EEE 
5RR AAA AAA XXX XXX JJJJJJ , 1 


TTT » / t 20X t 67HRRR R 
EEEEEEEEEE TIT»/»20X 


6 » 67HRRR RRR AAA AAA XXX XXX JJJJJJ EEEEEEeEEE 

7 TTT) 

FORMA I (/////»2CX»7HCASE - »8A10) 

FORMAT (/////»34XfAHUATE - » A10» 10X » 6H1 IME -»A10) 


FORMAT ( 1 HI ' 
END 
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c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


c 


c 

c 


c 


c 


c 

c 

c 


c 


c 

c 


THIS SUBROUTINE IS CALLED BY SUBROUTINE INPT IN THE 
RAXJET CODE. IT'S PURPOSE IS TO DEFINE DEFAULT VALUES 
OF CERTAIN PARAMETERS DIFFERENTLY THAN THOSE DEFINED 
BY THE ORG1NAL RAXJEV CODE. 

COMMON /RAXIN/ XNPR9 t EM JET9 , TT JET? r THL IP9 > THETA9 » JDUM * 

1 IPRINT * AMINF9 

COMMON /RAXOUT / NPTS » XSTA( 30 ) , XRATIO < 30 > » XVN ( 30 ) 

NAMELIST ( FSC ) 

COMMON /FREE/ GAM , AM I NF f PT r TT » REFL r RE INF , SREF , P I NF » ALPHAE (.6) t XSEP 
NAMELIST ( CNTRLN ) 

COMMON /CNTRL/ IMAX » JMAX t MI T > NMIN > NMAX » I TER A » MV I » 

1 ISEP» IUI » IUO»NSEP» I WAKE » IDPDX 

NAMELIST (JETUA1) 

COMMON /JETCM/ XNPR » EM JET » TT Jfc . t H Jfcl » ‘I HL IP . NMAX J » IGAS » 

1 ALPHA J ( 6 ) » GAM J » I DK 

NAMELIST (MIXDAT ) 

COMMON /BINPT/ I VIS » MPSI » FDL . FFF » GGG » S IGMA » KMAX J t KMAXE t ICON I , 

1 XJENT r TKEJ* TKEX 

NAMELIST ( OUTPIC ) 

COMMON /COUT/ I OFF » I AFT » IOU I r XSTR T » XEND » ROB r IMAP » JMAP » ALFO 
NAMELIST (GEOMN) 

COMMON /GEOM/ I XY t IORDER r XO < 1 50 ) » Y0( ISO ) t D YL'XN 
COMMON /XGRID/ XM » DXI DXO r DX IDXM ? CXM » XBT 

COMMON /TITL/ TITLE1 
COMMON /CASE/ TITLEO) 

CHARACTER TITLE«10» TITLE1*80 

DIMENSION XP(8> » YP<8) 

DATA XP /O. » 10. »20. »30. r-10. r'JO. ,60. » 70 . / 

DATA YP /O. pS. , 10. • 10. , 10. , 10. , 10. ,7.2/ 


SET THE RAXJET TITLE EQUAL TO THE TITLE READ IN ADDJET 
DO I =1 » 8 

J = I * 10 - 9 

JJ= I * 10 

TITLE ( I ) = TITLEl(JJJJ) 


END DO 


XNPR = 

XNPR9 

EM JET = 

FM.IET9 

TT JET = 

TTJET9 

7 Hi. I r = 

THLlr? 

THETAJ 

- THETA9 

AMINF = 

AMINF9 


IMAX = 

51 

JMAX = 

11 
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MIT = 10 

IDPDX = 1 

NMAXJ = 41 

I GAS = 2 

IDK = 2 
XJENT = 10 
KMAXE = 2 
TKEJ = 10.0 
TKEX = 10.0 

IOFF = 1 
IMAP = 8 

JMAP = 5 


ORIGINAL 

OF POOR 


pAGc 13 

QUALITY 


THE FOLLOWING STATEMENTS DEFINE THE GEOMETRY FOR AN 
ASSUMMED BODY SHAPE TO BE USED BY THE RAX JET CODE. 


IXY = 8 
XBT = 60. 

XM = 70. 

RJET = 7.09 
XSTRT =• 60. 

XEND = 120. 

ROB = 30. 

DO I = If IXY 
XO(I) = XPCI) 

YO < I ) - YP ( I ) 

END DO 

URITE< 11 » 100) 

100 FORMAT (' SUBROU I 1NE RAXSUB COMPLETED') 

C 

C ********* THE FOLLOWING ARE TEMPORARY PARAMETERS TO ******** 
C********** MINIMIZE PAX JET RUN TIME ******** 

C 

C IMAX = 21 

C JMAX = 7 

C MIT = 3 

C NMAXJ = 21 

C XJENT = 5 

C IMAP = 4 

C JMAP = 3 

C 

RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 
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THIS PROGRAM <1> 


COMPUTES THt LUURD1NAIES OF A NETWORK OF PANEL 
TO MODEL Ht 1NVISCID PLUME SHAPE 


( 2 ) 


COMPUTES THt INt- LOW VELOCITIES AT EACH PANtL 
CENTER 


COMMON /HOWELL/ HSU ( 60 ) f KSUDUM t IGH t REFL 

COMMON /KEXlC/ IEXT ? XEXT ( 30 ) »PEXl ( 30 ) > YKLU ( 30 ) > K INT , XDK » U JET ( 30 ) 
COMMON /RAXQIJT / NPTS ? XST A ( 60 ) r YKAT 10 ( 30 ) r VN ( 29 ) 


C 

C 

C 

C 

C 

C 

C 

C 

C 


10 


C 

C 

C 


DIMENSION VROU ( 29 ) . VNOU ( 29 ) f REFF ( 30 ) 

XEXT - X-STATIONS FOR YKLU» REFF t AND RSQ 

YPLU = RADIUS OF INVISCID PLUME 

RSQ = RADIUS SQUARED FOR EFF. PLUMt (INCLUDES EFFECTS OF BOD 

IGH =• NO. OF XEX I » YKLU« REFF » AND RSQ (IGH(l) CORRESPONDS A 


MODIFY VALUES TO REFLECT INPUT UNITS 

DO 10 I = 1» IGH 

RSQ ( I ) = RSQ ( I ) / REFL**2 

CONTINUt 


C******************* COMPUTE NORMAL VELOCITY ********* ****************** 
C**************»*** AT INVISCID PLUMt BOUNDARY *****************:***** 

C 

C 

IGHM1=IGH-1 

DO 20 1= 1.IGHM1 

XXXI = RSQ ( I ) - YPLU(I) **2 


XXX2 = RSQ ( I + 1 ) - YKLU ( 1 + 1 ) **2 
XXX3 = (YKLU ( I > + YPLU ( I + 1 ) ) /2 
C VROU = RADIAL VELOCITY 


VROU(I) -- ( XXX2 -XXXl)/XXXi 
VROU < I ) = VROU ( I ) / ( Xt XT ( I + 1 ) - XFXT(I)) 
C 

C THETA = SLOPE OF KANtL 

DY = YPLU ( I + 1 ) - YPLU ( I ) 

DX = XEXT ( I + 1 ) - XtX Id) 

THETA = ATAN(DY/DX) 

C 

C VNOU = VELOCITY NORMAL TO PANtL 

VNOU(I) - VKUU(I) * COS (THETA) 

20 CONTINUE 
C 


C REFF = EFFECTIVE BODY RADIUS 

DO 25 1 = 1 » IGH 
REFF ( I ) =SQRT ( ABS ( RSV ( I ) ) ) 
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IF ( RSQ ( 1 > .LI .0,) REFF ( I )=-REFF ( I ) 
25 CONTINUE 


***.******* INSERT COMPUTED PARAMETERS IK'IU COMMON /RAXOUT/ ************ 


NPTS * IGIT 
DO 40 I = 1»30 

XSTA(I) = (XEXT(I)-XEXI (1))/ (2. * YPLU(J)) 

YRATIO ( I ) = YPLU(I) /YPLU(l) 

IF ( I . EQ . NPTS ) GO TO 40 
ON ( I ) = UNOU(I) 

40 CONTINUE 

PRINT RESULTS 

WRITE ( 6 » 500 ) 

500 FORMAT (1H1»/»6X» 4HGRI D » 6X » 2HX- » 7X » 6HRADIUS » 5X » 6HRAD I US » 5X » 

1 8HUEL0C I TV » 4X » 8HUEL0C I TY ) 

WRITE ( 6 » 501 ) 

501 FORMAT ( 5X » 6HNUMBER » 3X , 7HST AT ION r 3X » 8HIN0ISCID r 3X » 9HEFF-PLUML » 
1 5X? 6H INFLOW » 6X t 6HKADIAL t / ) 


DO 30 I = ifIGH 

WRITE ( 6 » 510 > I » XEXT ( I ) » YPLU ( I ) t REFF ( I ) 
510 FORMAT (7X»I3»3F11.3) 

C 

IF < I . EQ . IGH ) GO TU 30 

WRITE ( 6 » 520 ) YNOU(I). OROU(I) 

520 FORMAT (43X»2(- 11 .3) 

30 CONTINUE 
END 
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USER’S GUIDE TO 
VISCOUS SIMULATION MODULE. 


C.l User Instructions For Interactive Vicsous Simulation Module 

The user will be prompted with the following questions when using the viscous 
module described in Section 6. 



(1) "Do you wish to start a new problem (Enter 1 for yes) and set up a new data 
base of How properties?" 

"or" 

"No, I do not want to start a new problem (Enter 0 for No); I want to continue 
with previous data base." "Enter 0 or 1" 

The user is given the option to continue with a data base already created from 
an PAN AIR problem or start by creating a new base. If "0" is entered control 
is shifted to question (4). 

(2) "First Delete Previous Data Base Generated By Execution Of This Module." 

The user will first be asked to delete the previous data base (NETWORKS). If 
for some reason these are not to be deleted, the user must transfer them or 
rename them before entering the viscous module. Therefore, the answer to this 
question must be "YES" if the user wants to continue execution of the module. 
Actually the user will be asked to delete chree files since a RIM data base 
consists of three files. 

(3) "Enter Name of TAPE 10 Input File". The user must supply the name of the file 
containing the calculated flow properties which was transferred to the VAX 
system. This is the plot file that has been generated by PAN AIR. 

(4) "Enter the Number of Networks on the Upper Surface That You Want To 
Combine For a Viscous Analysis (Enter 1 if the upper surface is composed of 
only 1 network)'. The user must enter an integer to specify the number of PAN 
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AIR networks that compose the upper surface. An index of the networks and 
their ID numbers will be displayed on the terminal to assist the user in 
answering this and the following questions. 

(5) "Enter the Number of Networks on the Lower Surface That You Want To 
Combine For A Viscous Analysis". The same question as (3) must oe answered 
for the lower surface. 

(6) "Enter the Identification Numbers of the Upper Surface Networks". The user 
must supply the ID numbers of the upper surface networks. An index of these 
ID numbers and network titles will be displayed on the terminal. 

(7) "Enter the Identification Numbers of the Lower Surface Networks". The same 
question as (5) must be answered for the lower surface. 

(8) "Input the Desired Tolerance Dimension for Determining Station Cuts Along 
Surface". As described in Section 6, the panel center control points at any 
station on the surface may vary somewhat in the Y coordinate due to the 
paneling scheme. This tolerance tells the program what variance will be 
allowed in determining chordwise stations on the surface. The dimensions cf 
the surface and paneling scheme should be considered in setting this tolerance. 
Caution: an unreasonably low tolerance will yield questionable results because 
the program will try to divide one chordwise station into severed. In general, 
this tolerance should be at least 5 to 10 percent of the typical panel width. 

(9) "Enter Free Stream Vlach Number For Boundary Layer Analysis". User should 
input the Mach Number consistent with the PAN AIR problem. 

(10) "Enter Unit Reynolds Numbers Per Million". Enter the Reynolds Number per 
unit length divided by 10®. This Reynolds Number will be used in computation 
of the boundary layer characteristics. 

(11) "First Delete the Previous Data Base Cenerated:". The user must delete the 
data base (ORDER) generated by the previous execution of this module. This 
data base is set up to reorder the panel boundary layer properties to be 
consistent with the PAN AIR network scheme. 


(12) "Enter the Name of the File Containing the Original PAN AIR Problem Without 
Viscous Effects." Enter the initial PAN AIR problem which produced the 
inviscid flow properties for the boundary layer analysis. If more than one 
component is being analyzed (only one component can be analyzed each pass 
through this module), the new file name generated by the previous pass through 
this module should be entered. 

(12) "Enter the File Name For the New PAN AIR Problem with Viscous Effects 
Simulated to Be Generated by This Program." Enter a file name for the new 
PAN AIR problem to be stored. This completed the execution of the Viscous 
Simulation Module. The new PAN AIR problem is ready to be run. 

(13) "Do You Want To Do a Viscous Analysis For Another Surface?" The user may 
choose to analyze another surface in addition to the one just completed. Be 
sure to answer (12) with the file name containing the corrections for the 
previously analyzed surface. 

Tlie programs run during execution of the Viscous Simulation Module along with the 
files or data bases generated by each are shown in Table C-l. 


C.2 VAX - Fortran Codes for Viscous Simulation Module 

Enclosed within this section of the Appendix are copies of the codes of each routine 
developed specifically for this module. The program developed at NASA Ames to read the 
TAPE 10 output (EDITTEN), the RIM data base management program, and the Whitfield 
code were not developed specifically for this module and are not included. The other 
programs listed in Table C-l are included in the following sections. 
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Table C-l 

PROGRAMS AND FILES 

GENERATED BY 


VISCOUS SIMULATION 

MODULE 

Program 

Files Generated 

Purpose 

EDITTEN 

(1) PATEMP.COM 

(2) RIMINFO . TMP 

(3) INDEX. TMP 

Command file to load RIM data base 
Information from PAN AIR run 
Index and ID no. of networks 

RIM 

(1) NETWKS 1 . DAT 

(2) NETWKS 2. DAT 

(3) NETWKS 3. DAT 

(4) LABEL. TMP 

RIM data base 
RIM data base 
RIM data base 

Comments from RIM execution 

SELECT 

(1) RUNRIM.COM 

Command file to open RIM data 
base and select flow properties 

RIM 

(1) WINGU.DAT 

(2) WINGL. DAT 

(3) LABEL. TMP 

Flow properties for upper surface 
Flow properties for lower surface 
Comments from RIM execution 

WHITIN 

(1) UPPER. DAT 

(2) LOWER . DAT 

(3) STAG. DAT 

Whitfield input problem 
Whitfield input problem 
Stagnation points 

WHITFIELD 

(1) UPROJT.DAT 

(2) LOWOUT.DAT 

Upper surface B.L. predictions 
Lower surface B.L. predictions 

WHITOUT 

(1) REORDER.COM 

Command file to load RIM data bas< 

RIM 

(1) ORDER 1 . DAT 

(2) ORDER 2. DAT 

(3) ORDER 3. DAT 

(4) LABEL. TMP 

RIM data base 
RIM data base 
RIM data base 
RIM information 

SORT 

(1) RIMSORT.COM 

Command file to open RIM data bas 
and reorder parameters 

RIM 

(1) LINK . DAT 

Reorder network parameters 

LINK 

NEW PAN AIP PROBLEM 


C-4 


C.2.1 Code Developed For Program Select 


The following pages contain the FORTRAN code developed for the program 
SELECT. 
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OWCyfJAl PACP 
C* POOS QUALITY 


r: 

c 

c 

c 


10 


15 


PROGRAM SELEC. 


THIS PROGRAM ASKS ! HE USER ! 1J 


UPPER ATM! LUULT: 


NETWORKS I HA I ARfc GOING TO BE USED IN I HE VISCOUS ANALYSIS. 
OFTEN I HE WING IS DIVIDED IN1U SEVERAL NETWORKS THUS II IS 
NECESSARY 10 COMBINE THESE NETWORKS 10 IDENTIFY THE 
PAN AIR PREDICTED FLOW PARAMETERS ERUM LEADING 
TO TRAILING EDGE FOR THE ENTIRE SPAN OE I HE WING. 

THESE FLOW PARAMETERS HAVE BEEN SIURED IN A RIM MANAGED 
DATA BASE . BY IDENTIFYING THE UPPER AND LOWER 
NETWORKS REUU1RED FOR THE VISCOUS LALCULA I IONS 
A COMMAND FILE 10 RUN RIM AND SELECT I HE RE OUT RED 
DATA MAY HE WRITTEN . 

THIS PROGRAM WRIlES THAI FILE (RUNR1M.COM). 

DIMENSION NET U ( 20 ) .NETL(20> 

WRITE ( 6 * * ) ' ENTER THE NUMBER OE NETWORKS UN THE UPPER' 
WRITE(A»*>' SURFACE THAI YOU WAN I 10 COMBINE FOR A' 
WRITE(A.*>' VISCOUS ANALYSIS ( ENTER 1 IF THE UPPER' 
WRITEC6.*)' SURFACE IS COMPOSED OF ONLY 1 NETWORK) 

READ (5.10) NNE1 0 
FORMAT ( 12 ) 


WR T TE ( A » * ) ' 

WRITE ( A »* ) ' ENTER I HE NUMBER OF NETWORKS ON THE LOWER' 
WRITE(A»*>' SURFACE THAT YOU WANT T(J COMBINE FOR A' 

WRITE < 6 » ♦ ) ' VISCOUS ANALYSIS (INTERGLR FORMA I > . ENTER 1 IF ' 
WRITE(o.*>' I HE LUWER SURFACE IS CUMPOSED OF ONLY 1 NETWORK' 
READ (5.10) NNE TL 

OPEN ( UN IT =2* FILE- ' RUNR 1M . CUM ' * S I A 1 1 IS- ' NEW ' ) 

WR I TE (2.15) 

FORMAT ( 


2' l RUN LBHATELEY . PANA1R1RIM23 ' / 
3' * ( SET SEMI-NULL) '/ 

4' *<SET DOLLAR-NULL ) ' / 

5 ' NUECHO/ 

A' OPEN NETWKS ' / 

H ' LINES 2000'/ 


V' UCTPUT WINGU ' ) 

C WRITE OUT UPPER SURFACE COMMANDS 
WRITE (2 t 16) 

16 FORMA T( 

2 ' SELECT NN » X »Y » 2 . ML I SEN » RN » CN F KUM NETWKS + '/ 

3' SORIELI HY Y X + ') 

WRITE (A.*)' NOW ENIER THE I DEN l IF ICA I ION NUMBERS UF THE ' 

WF; I TE ( o » * ) UPPER SURFACE NETWORKS REOOJRFD FOR THE VISCOUS ' 


WR I TE ( 6 » * ) * ANALYSIS. ENIER I HEM LN 1 NT E RUE R FORM . ON ONE LINE' 
WRITE ( o . * ) ' SEPERA I ED BY COMMAS AS LN I HE FOLLOWING EXAMPI E 
WR I TEC o » * ) 1.2.3. 4 EIC. 

READ ( 5 . 1 H ) (NEIIM1) » i-l.NNElU) 

13 FuRMAI (2013) 

l F •' NNETU . EO . 1 > I HEN 
UR 1 TE ( 2 » 19 ) NETIJU) 

19 FORMA I ( 

V! ’ WHERE NN EO ' . Lo» ' + ' / 

3' AND Y tOA Y ' ) 

GO TO 27 
END IF 

UU 25 1-l.iNNElU-t) 

[Fv l .GT, 1 ) GO 10 '.'1 
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WRITE 1*2. 20) NtlU(i) 

JO EURMAU 

2 ' WHERE NN EQ ’.I3.' UR E'> 

GU ro 25 

21 CUN! 1 HUE 

UR I TE ( 2 » 22 ) NEIIK 1 ) 

22 FORMA I ( 

2' NN EU ' » 13. ' UR +' ) 

25 CONTINUE 

WRITE (2.26) NETU ( NNETU ) 

26 FORMA! < 

2' NN EQ ' . 13. ' + ' / 

3 ' AND Y EUA Y '> 

27 CONTINUE 

c nuu write oui lower surface::::::: 

WRITE (2.30) 

30 FORMA TC 

2' OUI FIJI UINGL / 

3' SELECT NN.X.Y.2.MLISEN.RN.CN I- RUM NEIUKS +'/ 

4' SORlEU BY Y X^U +' ) 

URITE(c»*>' NUU LNlER THE IUEN I IF ICA I ION NUMBERS OF' 

WRITEC6.*)' I HE LUUER SURFACE NETUURKS. ENTER I HEM' 
WRITE (6.*)' IN INIERhER FURM . ON ONE LINE . SERE RA I EU ' 


UR I TE ( 6 . $ ) ' BY COMMAS AS IN I HE FOLLOWING EXAME'IE U.o./.H' 
READ ( 5 » 32 ) v NE IL( ] ) » I — 1 . NNE I L ) 

FORMAT ( 20 1 3 ) 

IF ( NNE1 L *EU . 1 ) I HEN 
WRITE 12 .33) NEILC1) 

FORMAT ( 

2' WHERE NN EU '.13.' + '/ 

3' AND Y EQA Y '/ 

4' EXIT ') 

GU TU 44 
END IF 

UO 40 J-l » ( NNE1 L-l ) 



I F v J • G T . 1 ) 

GO 1 U 

%iL# 


WRI TEiJ.34) 

NEIL 

V J) 

34 

FORMA 1 ( 




2' WHERE NN 

EQ ' . 

lo. ’ 


GO TO 40 



35 

CONTINUE 




WR I TE ( 2 . 36 ) 

NE 1 L 

t J) 

Jo. 

FORMAT < 




2 ' NN EU ' . 

1 3 j 

UR 

40 

CONTINUE 




URi TEC 2. 42) 

NE 1 1 

v NNE 

42 

FORMAT \ 




2 ' NN EQ ' . 

1 3 » 

+ ' 


3 ' AND Y EQA 

Y ' / 



4 ' EX I I ' > 
44 CUNTINUE 


STOF- 

END 
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C.2.2 Code Developed For Program WHIT1N 


The following pages contain the FORTRAN code developed for the program WHITIN. 


U U O 'J'J'JUUUUU u u u 


PROGRAM WHITT.) 


ORIGIN. ".L Pfi.C.r iJ 
OF POOR QUALITY 


C 

c 

i; 

c 

r. 


I HIS PROGRAM COMBINES 

TWO FILLS WH 1 1 ;H CllNlAlN PANEL CllClRU J MAI h NA I A 
AND 1.01, AL MACH NUMBER FOR THE SURFACE IIRPI-R 
AND LOWER PANELS . I HESF FILES UEFE HFNKRAIFL) 

UP I NO THE RIM DATA MAMAHFMbMi SYSTEM . 

THE S T AHNA1 TON FOIMl IS LUCA I F H ANN TWO OUTPIJ1 FILES 
ARE GENERA I ED ( UPPER. DAI ANN LUUER.DAT ) . I HE UPPER 
FILE CUN I A INK THE POJNIS FORWARD OF THE S I AH . POINT 
ON THE LUUER SURFACE ANN I HE UPPER SURFACE Pill NTS 
TO THE 1 RAIL INC E NHE . 1 HE LUUER FILE CONTAINS I HOSE 
POINTS FROM I HE S' AH. POINT TO THE TRAILING E NHE . 
THESE FILES APE IN A FORMA I SUITABLE FOP INPUT INTO 
THE UH1 I FIELD bllUHNARY LAYER PROGRAM . 


IMPLICIT REAL ( M ) 

DIMENSION X(20» 100) » Y(20» 100) »Z(2G. 100) » JMAXC.’O) . JMAXl (20) 
DIMENSION ML (20* 100). J NNS'I (20) *NN(20» 100) . j RN(20» 100). 1CN(20.100) 
DIMENSION SO (20. 1 00 ) » SL ( 20 . 100 ) .NPISIK20) *NP IL (20) » ISYM( 20) 
DIMENSION XX (200) »YY(200> .ZZ(200) • \MN ( 200 ) . MMI (200) . IIRN(200) . 

2 IICNC200) 

CHARACIER*8 FU i 20 ) .FL ( 20 ) 

CHARACTEF;*l 3 UPPER. LUUER 
CHARACTER FNAME*1 3 » L 1 NE*BO » NU*2 

DATA X.Y.Z.ML / 2000*0. 0*2000*0. 0*2000*0. 0*2000*0.0/ 

DATA IRN.ICN / 2000*0.0*2000*0.0/ 

DATA XX.YY.ZZ / 200*0.0*200*0.0*200*0.0 / 

DATA hhL* URN. 11 UN / 200*0.0*200*0.0.200*0.0 / 

UR I TE ( 6 » * ) ' 1NPUI I HE DESIRED I OLERANCE DIMENSION FOR' 

WRITE ( 6 . * ) ' DETERMINING STATION CUTS ALONG SURFACE ' 

WRITE ( 6 » * ) ' 

WRITE (A.*)' I OlERANCE - ? 

READ ( 5 » * ) TOL 

WR I TE ( 6 » * ) ' WHAT IS I HE NAME (IF THE FILE CONTAINING' 

UR I TE ( 6 » * ) ' THE UPPER SURFACE DATA ??? ' 

READ (5.11) UPPER 
i; FORMAT ( Al 3 ) 

C URITE( A»* ) ' WHA 1 IS THE NAME OF I HE FILE CONTAINING' 

C WR I TE ( A » * ) ' THE LOWER SURFACE DA I A 

C READ ( b . 11 ) L UUER 

OPEN ( UN I T-l » F1LE = ' U 1 NUU . DAT ' . STATUS- ' OLD ' ) 

OPEN (UNIT-2. FI LE-'UlN(il .HA I ' . STATUS- ' ULD ' ) 

C READ THE TITLE CARDS 
DO 4 K-=l»3 
KEnuv 1 » 3 ) LINE 
READ ( 2 . 3 ) L INE 

3 FORMAT (AGO) 

4 CONTINUE 
CHECK-0 . 0 
1 = 1 

J=1 

0 CONTINUE 

RE AD ( 2 . 10. END-MO) NN ( J . J ) » X ( I . J ) » Y ( I . J ) . L ( 1 . J / » Ml ( J . J ) » I RN ( I » J > . 

1 ICN(I.J) 


10 FORMAT ( 1 10 * 4F 10 . 5 f i'l 1 0 ) 

IF ( J.EQ.l ) GO Ul IfO 

UY=ABS(Y( It J)-Y( ) f J-l ) ) 

IF(DY.LE.TOL) THEN 

IF(DY.GT.O.O) CHfcCK-1.0 

IF ( X < I ? J ) . LT . X < 1 » J-l ) ) CHk UK- 1.0 

GO TO 20 

END IF 

JMAXL ( I ) =J-1 

IF ( CHECK. EQ. 1.0) I Hfc N 

CALL CKLOUER( I f Jf JMAXLfNNf Xf Yf Zt 

CHECK- 0.0 

END IF 
1 = 1 + 1 
J=1 

BACKSPACE 2 
GO TO 5 

20 CONTINUE 
J=J+1 
GO TO 5 

30 CONTINUE 

JMAXL ( I ) = J-l 
I MAXU= I 

IF ( CHECK. EQ. 1 .0) I Hfc N 
CALL CKlOUER( I fJr JMAXLfNNf XfYfZf 
CHECK=0 . 0 
END IF 
1 = 1 

J= JMAXL (1 ) +1 
50 CONTINUE 

READ ( 1 f 10 f END-- 100) NN< I » J ) » X < I » J 
1 IRNdfJ)rlCN(IfJ) 

IF ( J . EQ . JMAXL ( I ) + 1 ) HO 10 AO 
DY=ABS ( Y ( If J)-Y( 1 f J-l ) ) 
IF(DY.LE.TOL) IHfcN 
IF(DY.GT.O.O) CHECl =1 . 0 
IF(X(IfJ).LT.X(lf J-l)) LHLCK=i.O 
GO TO 60 
END IF 
JMAX ( I ) -J-l 

IF (CHECK. EG. 1 .0) THEN 

CALL Cl"' UPPER ( I f J f JMAXL f JMAX f NN f X 

CHECK =0.0 

END IF 

! = l + l 

BACKSPACE 1 
J= JMAXL ( I )+l 
IjU m 50 
60 CONTINUE 
J=J+1 
GO TO 50 
100 CONTINUE 

JMAX < I ) -J-l 

IF ( CHECK . EQ .1.0) THEN 

CALL CKUF’PER( I f Jf JMAX! f JMAX t NN t X 

CHECK=0 • 0 

END IF 
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MLf lKNf lCNf CHECK ) 


ML f IRNf ICNfCHfcCK ) 


) f Y ( I f J ) f Z ( I f J ) f Ml. ( I f J ) f 


f Y.ZfML f IRNf I CN i CHECK) 


fYfZfMLf IRNf ICNf CHECK ) 
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IMAX=1 

TFvIMAXU. EQ . IMAX ) GO TO 110 
GO TO 130 
110 CONTINUE 

WRITE(6f*)' POTENTIAL ERROR EXISTS IN DATA ' 

WRITE(6f*)' FROM INPUT FILES PLEASE CHECK FILES ' 

WRITE ( 6 f * ) ' IMAXU=1 » IE, ONLY 1 WING STATION EXISTS ! ' 

WRITE ( 6 f # ) ' 

130 CONTINUE 
C 

C CHECK FOR MACH NO. = 0.0 
C 

1 = 1 
J=1 

DO 134 1 = 1 f IhAXll 
DO 132 J=1 fJMAXU) 

IF(ML< I f J) .EQ.O.O) THEN 

ML < I » J > = < ML ( I » J-l ) +ML (I» J+l ) )/2.0 

WRITE (of*) ' 

WRITE ( o»*> ' A LOCAL MACH NO. EQUAL TO 0 WAS FOUND. ' 

WRITE (of*) ' THIS MACH Nil. WAS SET = TO 0 BY PAN AIR WHEN ' 
WRITE ( 6 f * ) ' VACUUM PRESSURE WAS REACHED . ' 

WRITE (of*) ' AN INTERPOLATED VALUE OF MACH NO. WILL' 

WRITE ( 6 f * ) ' EE USED FOR BOUNDARY LAYER ANALYSIS .' 
WRITE(of*) ' 

END IF 

132 CONTINUE 

134 CONTINUE 
1 = 1 

J=1 

DO 150 I=1fIMAXU 
JM=JMAX ( I ) 

KM=JMAXL( I ) 

DO 140 J=1fJM 

C WRITE ( 3 f 135 ) X ( I f J ) f Y ( I f J ) f Z( I f J ) fML < l f J ) 

135 FORMAT ( 4F10 .5 ) 

140 CONTINUE 

150 CONTINUE 
GO TO 800 

500 WRITE(6f*)' ERROR EXISTS IN FILE CONTAINING ' 

WRITE (of*) ' DATA FOP LOWER SURFACE ' 

GO TO 800 

501 WRITE (of*) ERROR EXISTS IN FILE CONTAINING ' 

WRITE (of*) ' DAI A FOR UPPER SURFACE ' 

300 CONTINUE 

DO 162 I=1fIHAXU 
ISYM ( I ) =0 

C',0RD = X(If1)-X(IfJMAXL(I) ) 

CH30=.30#CH0RU 
TNDST ( I ) = JMAXL ( I ) 

MLMIN=ML(IfKM) 

JM= JMAX ( I ) 

DO 160 J=1fJM 
IF(J.EQ.l) GO TO loO 

IF((X(IfJ ) -X < I f JMAXL ( X ) ) ) . Gf. . CH30 ) GU TO 160 
IF ( ML ( I f J ) . G f . MLM IN ) GU TO 160 
MLMIN=ML( If J) 


Oil 


160 

C 

C 

C 


200 


204 

C 

C 

C 


INDST ( I ) -J 
CONTINUE 


ORIGWAL PACE 
OF POOR QUALITY 


CHECK FOR SYMETRICAL DlblRiBUTlUN 


TOLER-O • 02 

CKTOL-ABS ( ML ( 1 *KM > -ML l 1 * KM + 1 > ) 

CKML-ABS ( ML ( I . KM ) -MLM IN ) 

IF ( TOLER .GT .CKIUL.AND. IULER.UI . UKML ) 1SYM<1)=1 
IF ( ISY“ ( I ) . EU . 1 ) THEN 
_ INDS1 ( I ) = JMAXL ( 1 ) + 1 
END IF 
CONTINUE 

OPEN ( UNIT-7 » FILE- ' UPPER • DAT ' »b I AT US- 'NEW * ) 

OPEN ( UN IT =8 »F ILE-'LUUER.Dn I ' » bl A I Ub- ' NEW ' ) 

WRITE(*/»200) 1MAXU 
WRITE C 8 » 200 ) 1MAXU 
FORMAT( 15) 

JJJ=0 

DO 250 1=1 » IMAXU 
CONTINUE 

GENERATE UPPER F 1LE 
IF(I.GT.l) GO TO 201 

UR I TF. ( 6 » 40 ' ENTER F RtE blRfcAM MACH NUMBER FUR BOUNDARY' 
WRITE ( 6 . 40 ' LAYER ANALYSIS ' 

WRITE (6.40 ' MACH = YYY ' 

READ ( 5 * * ) MACH 

WRITE<6»40 'ENTER UNIT REYNGLUb NUMBER PER MILLION' 

WRITE ( 6 » 40 ' REN = ???Y Y (PER 10E6) ' 


READ ( 5 » 40 REN 
THE T A=0 . 0 
SHAPE=0 » 0 


201 CONTINUE 

WRITE ( 7 » 202 ) MACH. REN » I HE1 A » CHAPE 
WRITE ( b » 202 ) MA:H»REN» I WET A » SHAPE 

202 FORMAT ^ 4F10.5' 

NPTSU < I ) =JMAX ' 1 ) - j NDST ( 1 ) 

S=0.0 

WRIT E < 7* 205 ) NPISU(l) 

205 FORMAT; 13) 

00 210 J= INDST ( I ) . JMAX ( I ) 

IF ( J . EQ INub ! ( I ) ) 30 10 210 
KK=J-1 


3--S+S0RT ( < X ( I . J ) -X ( 1 » KK ) >**2+( Y( I . J) -Y ( 1 »KK ) )**2+ 

1 (Z(I. J)-L(l.KK) >**2) 

8R=1 .0 

WR I TEC 7.206) b » ML ( 1 t J ) »RR»NN( i » J) »X(i.J)»Y(i»J)»Z(I.J>» 
1 IRN ( I » J ) * 1CN ( 1 » J ) 

206 F ORMAT ( 3F 10 • Li . ib » 6F 10 • 5 1 2x5 ) 

310 CONTINUE 
C 

C GENERATE LOWER FILE 

C 

IF(ISYMd) .EU.l) IHEN 
INDST ( I ) = JMAXL ( 1 ) 


v 
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(J U r _) 


END IF ORIGINAL PAG'- !3 

NFTL ( I ) -INDST ( 1 ) -1 OF POOR QUALITY 

UR ITE ( 8 f 205 ) NFIL(l) 

S-0.0 

DO 220 J-INDST < I ) » 1 ?-l * 

IF < J . EQ • INDST ( I > ) GO 10 220 
KK-= J+ 1 

S-S+SQRT((X(IfJ)-X(1fKK) ) **2+ < Y < 1 f J ) -Y < I f KK ) )**2+ 

1 (Z(If J)-Z(IfKK) )**2) 

RR-1 * 0 

IF (RR.LE. 0.0)1 HEN 
IF(JJJ.EQ.I) GU TO 216 
WRITE (of*) ' 

WRITE (of*) ' 

WRITE ( 6 » * ) ' 

URITE (of*) ' 

WRITE (of*) ' 

WRITE ( 6 ? * ) 

WRITE (of*) ' 

WRITE (oN) ' 

WRITE(of*) ' 

WRITE (of*) ' 

WRITE ( o»*) ' 

JJJ^l 

216 CONTINUE 

RR--Z ( I » J ) 

END IF 

UR ITE ( 8 f 206 ) S » ML ( 1 1 J ) f RR » NN <1»J)fX(IfJ)fY<1fJ)fZ(1fJ)f 
1 IRN( I » J ) » 1CN( 1 » J ) 

220 CONTINUE 
250 CGNTINUE 

CLOSE ( UNIT -7 ) 

CLOSE (UNIT -3 ) 

GENERATE A FILE CONTAINING SI AGNA I i U N RUIN IS 


WARNING : I HE UH1 (FIELD BUUNDARY LAYkR ' 
PRUGRAM WILL NUT UURK WilH ' 
NEGATIVE VALUES ( UR ZERO ) * 

OF SURFACE OR DINA I E3 

YOUR SURFACE CONTAINS SUCH VALUES THEREFURE ' 
1 HE SIGNS ARfc BEING CHANGED FUR THE LOWER * 
BOUNDARY LAYER ANALYSIS . THERE WILL NUT' 

BE A PROBLEM IF ALL LOWER SURFACE ORDINATES' 
ARE OF THE SAME SIGN.' 


OF'EN ( UN I T-9 f F 1LE- ' S I AG . DrT I ' » S I A I US- ' NEW ' ) 

00 300 1 1-1 f IMAXU 

SS^O.O 

SLOPE -0.0 

RR -0 • 0 

KK- INDST (II) 

UR 1 TE ( 9 f 21 3 ) SS » ML ( 1 i r KK ) f NN ( 1 1 t KK ) » X ( 1 1 i KK ) f 

1 Y ( 1 1 1 KK ) r L ( i 1 f KK ) f i RN ( i I » KK ) ? i CN ( i l » KK ) f SLUFE 
213 FORMA I (2E12.5f 15 f 3E12 . 5 f 215 f 1E12.5) 

IF ( ISYM ( II ) .EU. 1 ) THEM 
KK— JMAXL ( 11 ) +1 

WRI TE ( V f 213 ) SSfML* 11 fKK) f NN( 1 1 »KK) »X( 1 1 »KK) » 

2 Y ( 1 1 » KK ) » Z ( 11 » KK ) f 1RN ( 1 1 » KK ) » 1CN ( 1 1 » KK ) » SLUF’E 
END IF 

300 CONTINUE 

CLOSE (UNIT-9) 

WRI TE ( 6 f * ) ' THREE FILES HAVF NUU BEEN GENERATED J' 
WRITE(6f*)' 1 : UPPER . DAT ' 

URITECof*)- 2 : LOWER. DAI ' 

UR ITE (6?*)' 3 J S I AG* DA I 

LIRLTE(6f*) UPPER. DA I AND LUUFR.DAI AFIE IN I HF FORMA I 
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n o 


« 


C 

c 

c 

c 

c 

c 


c 

c 

c 


UR I TE ( 6 » ) ' 

UR I TE ( 6 » ♦ ) ' 
UR I TE ( ht%) ' 
UR ITE ( 6 » ♦ ) ' 
WRITE ( a » £ ) ' 
UR ITE (oj*) ' 
UR I TE ( A » # ) ' 
STOP 
END 


KEUU1REU FOR [NPI.I1 INTO I HP UHI. I FIELD ' 

BOUNDARY l AYER PROGRAM ' 

ST AO » DAI (JUNTA INK 1 HE PANFL. POINTS DEFINED' 

AS SI AGNA ( ION POINTS » THIS FILE UILL HE ' 

USED LATER TO GFHERAT E THE BOUNDARY OONDIT IONS' 
AFTER THE OTHER IUO FILES HAVE BEEN ANALYZE H ' 

IN THE UHlTFIEL.il PROGRAM. ' 


SUBROUTINE CKLOUER ( l » J . JMAXL » NN »X?Y*Z» Ml . » 1RN » 1CN» CHECK ) 


ALL DATA SELECTED FROM RIM DATA BASE UAS SORT F D ON THE BASIS OF FOUr’ 
VALUES OF Y . SOMETIMES A SMALL VARIANCE IN Y UILL CAUSE THE ORDER TO 
ERROR . UHEN THIS CONDITION IS DETECTED THIS SUBROUTINE IS EXECUTED T 


DIMENSION X< 20.100) # Y ( 20 » 100) » Z < 20 » 100 ) t JMAXL < 20 ) 

DIMENSION ML (20. 1 00 ) . NN < 20 » 1 00) . 1RNC20. 100) , 1 CNC’O. 1 00 ) 
DIMENSION XX (200) * YYC200) » ZZ ( 200 > »NNN<200) .MMI< 200) » 1 1 KN( 200) . 
2 I ICN (200 > 

THIS IS REORDER lNli A LUUER SURFACE SO THE X VALUES MUST BE IN 
DESCENDING ORDER . 

DO SO KK-1. JMAXL < 1 ) 

IF(KK.GT.l) GU TO 15 


C FIRST FIND LARGEST VALUE (JF X 
C 

JTEST -1 
XTEST -X < I . I ) 

DO 10 JJ^l , JMAXL ( 1 ) 

[F(X< I. JJ) .GT .XTEST ) I HFN 
XIFST-X(I.JJ) 

JTEST- JJ 
END IF 

10 CONTINUE 

XX < 1 )-X( I » JTEST ) 

YY(1)=Y( I, JTEST ) 

L’Z < 1 ) — Z ( I .JTEST ) 

NNN ( 1 )=NN( I . JTEST ) 

MML< 1 )=ML< I . JTEST) 

IIRN( 1)-=IRN(I. JTEST ) 

TICN( 1)-ICN( I. JTEST ) 

GO TO 30 
15 CONTINUE 
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NOU FTND NEXT LARGEST VALUE OF a 
C 

JJTES7-1 
XXTEST-X ( 1 . 1 ) 

DO 20 J J- 1 . JMAXL ( I ) 

T F ( XXTFST . GE . XX ( KK-1 ) ) THEN 
XXTEST-X ( 1 . JJ+l ) 

J JTEST-..J J + 1 
GO TO 20 
END TF 

r F ( X ( T . JJ > .LT.XX (KK-1 ) . AND. X ( i . J J ) . GT . XXI ESI ) ( HE N 
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n n n n o 


XXTEST^X< J . .1.1) 


20 


30 

C 

n 

c 

c 


c 


J JTEST -J J 
END TF 
CONTINUE 

XX ( KK ) -X ( I * JJ I ESI ) 

YY < KK ) =Y ( 1 » JJIESl ) 

ZZ ( KK ) -Z ( I * J JTEST > 
NNN(KK)-NN(I » JJItST) 
MML(KK)=ML( I* J JTEST ) 
IIRN(KK)-IRN( I» J JTEST) 
IICN(KK)-1CN( It J JTEST ) 
CONTINUE 
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CORRECT ORDER HAS NOW HEEN lit I ERM1NED SO REORDER I HE UAL LIES. 


WRITE ( 6 * 40 ' I - ' » I 
DO 40 KKK=1 * JMAXL ( J ) 

X ( I • KKK ) -XX ( KKK ) 

Y( I *KKK ) -YY ( KKK ) 

7(1* KKK ) =ZZ ( KKK ) 

WRITE(6.*)' X = 'fX(IfKKK).' Y = ' . Y ( J * KKK ) » ' L - ' * Z ( ) * K K K ) 

NN( I *KKK ) =NNN ( KKK ) 

ML ( I » KKK ) -Mill. ( KKK ) 
fRN ( I » KKK ) = IIRN( KKK > 


I CN ( I * KKK ) ■= I ICN( KKK ) 

40 CONTINUE 
CHECK-0 . 0 
RETURN 
END 

SUBROUTINE CKURFER ( 1 * J * JMAXL * JMAX » NN * X * Y » 7 * ML » 1 RN . I CN * CHECK ) 


ALL DATA SELECTED t RUM RIM DA I A BASE WAS SORTED ON THE BASIS OF EQUAL 
VALUES OF Y . SOMETIMES A SMALL VARIANCE IN Y WILL CAUSE THE ORDER TO 
ERROR • WHEN THIS CONDITION IS DETECTED THIS SUBROUTINE IS EXECUTED T 


C 

DIMENSION X ( 20 * 100 ) * Y ( 20 » 1 00 ) *7(20*100) * JMAXL ( 20 ) *JMAX(20) 
DIMENSION ML (20* 100) *NN(20* 100) * 1RN(20* 100) * I CN ( 20 » 1 00 ) 
DIMENSION XX ( 200 ) *YY(200) *77(200) »NNN(200) *MML(200) *11RN(?00) . 
2 I ICN ( 200 ) 

C THIS IS REORDERING A UPPER SURt ACE SO THE X VAI UES MUST RF IN 
C ASCENDING ORDER . 

C 

I 1 = JMAXL ( I ) +1 
12- JMAX ( T ) 

C WRITE ( 6 * * ) ' 1 — '*1*' LI — '*11*' 12— ’*12 

DO 30 KK- 1 1 * 12 
IF ( KK . GT .11) GO 10 IS 
C 

C FIRST FTND SMALLEST VALUE (JF X . 

C 

(TEST = 11 
XTEST-X ( I * 11 ) 

DO 10 JJ- 11*12 

IF t X( I * JJ) . LT . XT ESI ) THEN 

X TEST =X ( I » JJ) 

JTEST-JJ 
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* 


10 


15 

C 

C 

C 


20 


30 

C 

C 

c 


c 


40 


END IF 
CONTINUE 

XX < II )-X< I » JT ESI ) 

YVU1 ) -Y < I ? JTEST 1 
ZZ< I1)*Z( If JTEST ) 

NNN ( 1 1 ) -NN ( I * J IES f ) 

MML (II) =ML < I » J'l ES I ) 

I IRN( II ) -IRNT 1 f JTEST ) 

I ICN< I1)=ICN< I» JTEST ) 

GO TO 30 
CONTINUE 

NOW FIND NEXT SMALLEST VALUE UF X 

J JTEST.- 1 1 

XXTEST = X ( I » II ) 

no 20 JJ-I1 f 12 

IF ( XXTEST . LE .XX(KK-l ) ) , HEN 

XXTEST -X ( If JJ+l ) 

J JTEST -J J+ 1 
GO TH 20 
FND IF 

IF (X( I f JJ) . GT . XX ( KK-1 ) . AND . X ( 1 » JJ) .LI .XXTEST ) 1 HEN 
. XXTESI=X( If JJ) 

J JTEST - J J 
END IF 
CONTINUE 

XX(KK)=X( I f J JTEST ) 

YYIKK)=Y(If J JTEST ) 

ZZ(KK)=Z( I f J JTEST ) 

NNN(KK)=NN( 1 fJ JTEST ) 

MML ( KK ) =ML ( I f J JT ES I ) 

I TRN ( KK ) - IRN ( I rJ JTEST ) 

I ICN < KK ) = ICN ( 1 f J JTEST) 

CONTINUE 

CORRECT ORDER HAS NOW SEEN DETERMINED SO REORDER 1 HE VALUES. 

DO 40 KKK- I 1 f I 2 
X< I tlvKK )-=XX(KKK ) 

Y ( I f KKK )=YY I KKK ) 

Z( I ? KKK ) =ZZ( KKK ) 

URIIE(6f*)' X - 'fX(ifKKK).' Y = '«Y(li KKK ) » ' / - '</.(! 
NN< I f KKK )=NNN< KKK ) 

ML < I f KKK )=MML< KKK ) 

I RN ( r t KKK ) = I IRN< KKK ) 

I CN ( T t KKK ) = l ICN ( KKK ) 

CONTINUE 
CHECK -0.0 
RF T I IRN 
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FND 


* 


i 


f KKK ) 
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C.2.3. Code Developed For Program WHITOUT 


The following pages contain the FORTRAN code developed for the program 
WHITOUT. 
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H THIS PROGRAM IAKH.S I HREE I- ILFS < IIPPKK . »Jl 1 1 * L.IJUF R . I II 1 1 .AND 
l": STAG. DA l AND LOADS A CUMMAND HLk HI GENERA I F A RIM DA I A 

0 BASE. 

i„ 

PROGRAM WHITOIJI 
CHARACTERS DHNAMF 
CHARAC TE.R*1 3 F UPPER . F LOWE R 

HI MENS ION S ( 2000 ) ? lit LST AR ( 2000 ) »NN(200(>> »SLUPE(2000) 

2 » X ( 2000 > » Y < 2000 ) » / ( 2000 ) t IRN ( 2000 ) . ION ( 2000 ) 

10 FORMAT ( A1 3 ) 

1 2 FORMA K 2E12 . 5 » 15 r 3E 12 . 5 » 215» 1 El 2 . L, > 

DBNAME( 1 :5 ) - ' ORDER ' 

0 UIRITE(o»*> ‘ ENTER NAME OF UPPER SURFACE OUTPUT FILE' 

C WRITE(6»*> FROM WHITFIELD PROGRAM <13 CEIARAC I E RS MAX.) 

C READ (5» 10) F UPPER 

C WRTTE<6>*)' ENTER NAME UF LOWER SURFACE OUTPUT FILE ' 

C WRITE ( 6 » * ) ' FROM WHITFIELD PROGRAM <13 CHARACTERS MAX.) 

C READ ( 5 ? 1 0 ) FLOWER 

OPEN (UNI 1=1 » FILE-' STAG. DAT ' *ST A I US= ' UL 1! ' ) 

OPEN ( UN 1 T =2 1 F ILL = ' UPRUUT .DAT ' t ST A I US= ' 01 D' ) 

OPEN (UNIT =.4 1 FILE = ' LUWUUT .DAT ' »ST ATUS='ULD ' ) 

1J-0 

KKIOO 

0 _DQ .WHILE (KKK.EU.O) 

JJ=JJ+1 

READ c 1 » 1 2 » I OS I AT =KKK » E ND=H ) S ( JJ ) » DELS I AH ( J J ) » NN ( J J ) . 

1 X( JJ) » Y( JJ) tX( JJ) » IRN( JJ> 1 1CN( JJ) f SLOPE ( JJ) 

END DO 
8 KKK=0 

JJ=JJ-1 

15 DU WHILE (KKK.EU.O) 

JJ=JJ+1 

READ ( 2 » 12 » IUS I A T =KKK . E ND=l'd ) S( JJ) »DELS I AR< JJ) »NN( JJ) . 

1 X( JJ) » Y( JJ) »Z( JJ) f 1RN( JJ) » ICN( JJ) » SLOPE (JJ) 

END DO 
1 8 KKK-0 

JJ=JJ-t 

20 DO WHILE (KKK.EU.O) 

JJ=JJ+1 

READ ( 3 » 1 2 » IOST A I =KKK . END=20 ) S < J J > » DELS I AR ( J J ) , NN ( . I J ) , 

1 X ( J J ) » Y < J J ) » 2 ( J J ) » IRN ( JJ) . 1CN( JJ) » SLUPE ( JJ ) 

END DO 

28 KKK-0 

)J=JJ-1 

~C 

C NOW WHILE COMMAND FILE (O UREA IE RIM DATA BASE 
C 

OPEN ( UN T T = 4 . FTLE= ' RF ORDER . COM ' . S I A 1 1 IS= ' NEW ) 

WRITE (4. 30) UHNAMF 
30 FORMA I ( 

2 ' 5 RON CBHATFLEY .PANA IR 1RIM2.4' / 

3' * < SET SRM1=NIJLL ) ' / 

4' ♦ ( SET OOLLAR-NIII.L) '/ 

5 ' ECHO • /' 

A ' DEF I NE . A » / 

?■ OWNER ■NONE*/ 
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.51 


0 .3 


35 

34 


.5 7 


.58 

39 

898 

C 

891 


8' ATTRIBUTES'/ 
9- NN ! N 1 ' ) 

UR I TE ( 4 » 51 ) 


FORMA r ( 
2' RN 
3' CN 
4' S 

•j' DELS! 
A ’ X 
7' Y 

Q * 7 

9' SLOPE 


t N r • / 

imt* / 

REAL ' / 
REAL • / 
REAL/ 
REAL ' / 

REAL' / 
REAL' ) 


WRITE <4 *32) UBNAME 
FORMAT ! ' RELAIIUNS 
2' S DELS I AR 

3' Y Z RN 

WRITE (4*33) 

FORMAT (' PASSWORDS 
WRITE ( 4 » 35 ) UBNAMF 
FORMAT (' LOAD ’.A) 
11=0 
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'/1X»A»1X* 
NN X 

CN 


WITH +•/ 
+ ' »/ 
SLOPE 


'/' END'/' NUCHECK ' ) 


' ) 


00 WHILEC II .LI .JJ) 

11=11+1 

WRITE (4.37) S( 11 ) * DELS I ARt 1 1 ) »NN< 1 1 / 

FORMAT < l X * 2 < M 5 . G * 1 X ) * lb » 3X t ' + ' ) 

WRITE! 4*. 38) X( il ) » Y( II ) * Z< 11 ) » 1RN( 11 ) » iCN! II ) 

FORMAT! 1 X *3! E 13.5* IX) * 2( 15* IX) * * + ' ) 

WRITE! 4 *39) SLOPE! 11) 

FORMAT! 1 F 1 5 . / ) 

END DO 
WRITE! 4* 898) 

FORMAT!' END /' INPIJ1 INPUT '/' EXIT') 

CLOSE (UN IT =4) 

WR I TE ( 6 * 891 ) 

FORMAT!' I HE RLE REORDER. LUM HAS BEEN URL ITEN.' 

2 /' THIS IS A COMMAND F 1LE I HA I CAN HE BEST EXE CUT FD' 

3 /' BY US1N0 FORK .'/ 

4' JUST DO THE FOLLOWING : '/ 

5' 1 . TYPE IN E IJRK-: CR > (YOU WILL GET A * COMMANDS 

6 F’ROMF’ I ) ' / 

7' 2. TYPE IN $ HRE ORDER-: OR:-'/ 

8' JUST BE SURF. NO I 10 LUG LIFE BEFORE FORK TFLLS YOU 
9 YOUR JUB IS FINISHED) 


SLOP 

END 


019 


C.2.4 Code Developed For Program SORT 


The following pages contain the FORTRAN code developed for the program SORT. 
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PROGRAM SDK I 

i: 

• “ a 

0 FHIS PROGRAM WRITES A L'UMMAND FILL ( h 1SURI.CUM > WHICH OPENS 

C OPENS I HE KIM UA I A BASE NAMED UKUER AND IISES RIM COMMANDS 

C TO SELECT AND SORT I HE RESULTS FRUM 1 HE UH IT FIELD PROGRAM 

TO A FORMAT USEFUL 10 GENERATE A NEW PAN AIK PROBLEM SIMULATING 
VISCOUS EFFECTS. 


OPEN ( UN IT -2 ? FILE = ' R 1MSURI .COM' f STATUS- ' NEW ' ) 

WRITE(2» 10) 

10 FORMAT ( 

2' 5RUN CBHATELEY. PANA1R JRIM23'/ 

3 * ( SET SEMI -NULL ) ' / 

A * ( SET DOLLAR=NIJLL ) ' / 

5' NOECHO */ 

6' OPEN ORDER '/ 

7'_ LINES 2000 '/ 

R ' OUTPUT LINK */ 

9' SELECT NN»X»Y» i»S»DELST AR » RN» UN » SLOPE FRUM ORDER F *> 
WRITE( 2» IS) 

15 FORMAT < 

2 'SORTED BY NN CN RN */ 

3' EXIT ') 

STOP 

END 

FORTRAN STOP 
S 
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C.2.S Code Developed For Program LINK 


The following pages contain the code developed for the program LINK. 
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PKUGRAM l INK 

C I HIS PROGRAM READS ! Ht BL CHAKAC I EK IS I ICS FREDlClLD BY IHt 
C WHITFIELD PRUGRAM AHll I Ht UR 1G INAL INVISC1D PAN AIR PRlIBLth 
C THEN PRUDUCES A NEW PAN AIR PRUbLEM WHICH CON I A INS ViSCUUS 
C CORRECT 1UNS IN I Ht rURM UF BOUNDARY CUNDll 1UNS (UUIFLUW 
C VELOCITIES SPECIFIED A I CUN t RUL POINTS) 

C 

C THE BOUNDARY LAYER LHARAL I EK1ST ILS ARE ASSUMED 10 bt 

C STORED IN A FILE WHICH WAS bENERA I ED 0S1NU RIM CUMMAT JS 

C ON A RIM IJAIA EASE PRODUCED BY WH1I.COM FILE. I Ht 

C PROPER RIM COMMAND TO PRODUCE THIS DA I A FILE IS I 

C 

C SELECT NN » X » Y r 2. t S » DELS! AR » RN » CM » SLOPE FRUM DBNAME + 

C SORTED BY NN CN RN 

C 

C WHERE DBNAME IS I Ht NAME UF THE RLLAI1UN CUN I AIMING 
u I Ht BL F'ARAMt I LRS ♦ 

C THE FILE MUST CUNT AIN I Ht ABOVE SELECTED PARAMETERS AND 
CMUST-Bt SORTED AS 1NU1CAIED. 

C 

CHARACTER LI NE*BO * BC*4 » PAF 1LE*20»RMF 1LL*1S»NEUF ILE*20 
DIMENSION NN ( 500 ) »X(500) » Y ( 000 ) > L ( 000 ) » DELS I AR ( 500 ) <• IRN(500> 
DIMENSION 1CN(500 ) » S ( 500 ) »SLP ( 500 ) 

IlIMENSIUN XPA ( 20 1 CO ) » YPA ( 20 * 20 ) * CPA ( 20 1 20 ) 

DIMENSION Sl(20) t S2(20) »So(20> »S4(20) 

WRITE(6»*) ' 

WRITE ( 6 » * ) ' 

C WRITEl&»*)' ENTER THE NAME UF THE FILE CUNIAINING IHt' 

C WRITE(o»*)' BOUNDARY LAYER CHARACTERISTICS < THIS FILE' 

C WRITE ( 6 » * ) ' WAS PF;UDUCED FRUM A RIM DATA BASE CONTAINING' 

C WPITE<6>*)' PREDICTIONS FRUM THE WHITFIELD PROGRAM.' 

C WRITE ( 6 ? * ) ' FILE NAME (IS CHARS. MAX.) ??' 

READ <5 » 2' RMF1LE 

RMF ILE (lTb)-'LINK.DAT ' 

2 FORMAT (A13) 

WRITEC6.*)' 

WR I TE ( 6 » TO ' 

WR I TE ( e> » * ) ' ENIER I HE NAME OF THE FILE CUNIAINING THE' 
WRITE(o»*)' UR1G1NAL PAN AIR PROBLEM WiIHUUI ViSCUUS' 

WR I TE ( 6 » 40 ' EFFECTS . ' 

WR I TE < 6 r 40 ' FILE NAME Y (20 CHAKi. . MAX.)' 

WR I TE ( 6 * 40 ' 

READ(S*3) PAF ILE 

3 FORMAT (A20) 

WR I TE ( 6 » 40 ' 

WR I TEC 6*40' ENTER I HE P'lLE NAME FUR I Ht NEW PAN AIR PROBLEM' 
WR I TE ( 6 » 40 ' WITH VISCUUS EFFECIS SIMULA I ED TO Bt GENERATED' 
WR I TE ( 6 r 40 ' BY THIS PROGRAM .' 

WRITE ( 6 * 40 ' 

WRITE ( 6 » 40 ' ENTER FILE NAME (20 CHARS. MAX.)' 

_READ (5*3) NEWFILt 

""oPF.N (UNIT-2fFILE-'LINK.DAI ' ? ST A I US- ' OLD ' ) 

OPEN ( UNIT -3 * F ILE -PAF ILE » S I ATUS- ' OLD ' ) 

OPEN ( UN I T-4 » F 1LE-NEWF lLtrSIAlUS-'NEU' ) 

NNC0UN1 -0 
C 

C READ 3 TITLE CARDS IN RIM FILE 
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C 


DO I -1 » 3 
READ(2»4> LINE 
4 FORMAT(AGO) 

END DO 
CONTINUE 

NOW READ THE FIRST NET WURK FOR 
TO MAKE 
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WHICH WL VISCOUS CORRECTIONS 


IQS^G 

CALL READ2 ( XOS » PN1 S »NN » X r Y » £ r DELS1 AR » IRN » 1CN ► 3LP ) 

NOW CHECK TO SEE IF THIS IS THE LAST NETWORK FOR WHICH 
CORRECTIONS ARE TO BE MADE 

IF ( IOS . NE • 0 ) THEN 
CALL LASTRITE < LINE ) 

GO TO 900 
END IF 

0 CONTINUE 

NOW READ A NETWORK F ROM I HE ORIGINAL PAN AIR PRUbLEM 

CALL READS ( IQS » M » N » NNCUUN I » XPA » YPA » ZPA »LINE > 

IF(IOS.NE.O) GO TO 900 

NOW CHECK TO SEE IF NETWORK WITH BOUNDARY LAYER PREDICTIONS 
COINCIDES WITH NET WORK FROM ORIGINAL PAN AIR FRUBLEM. 

IF(NN( 1 > . EQ .NNCUUN T ) GO TC' 30 

THE NETWORKS DO NOT COINCIDE SO READ NEXT NETWORK FROM 
PAN AIR PROBLEM. 

GO TO 20 
0 CONTINUE 


THE NETWORKS COINCIDE SO NOW WRITE OUT THE NEW PAN AiK PROBLEM 
INCLUDING BOUNDARY CONDI I IONS. 

FIRST IDENTIFY I HE TYPE (UPPER OR LOWER) 

OF BOUNDARY CONDITION IN THE ORIGINAL PAN AIR PROBLEM 

CALL IDBC ( BC f LINE ) 

NOW WRITE OUT THE NEW BOUNDARY CONDITIONS. 

CALL R 1 TEBC ( BC r SLP t M t N » F'N I S t XP A » YF A » ZFA » X » Y » L t SI » S 1! » S3 » b4 ) 
GO TO 5 
00 CONTINUE 
SI OP 
END 


SUBROU T INE REAUL ( IUS t PN I S » NN t A r Y * 1 > OELST AR ? 1RN ♦ IL'N » SLP / 

J I MENS I UN NN ( LOO ) t X ( LOO ) r Y ( LOO / • Z i LOO ) » S > LOO ) * DLLS ! AH ( LOO > 
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DIMENSION 1RN ( 500 ) » ICN(300> >SLF'(500) 
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THIS SUBROUTINE READS A NLTUUPK FROM THE FILE CUNT AIMING THE 
PREDICTED BOUNDARY LAYER CHARACTERISTICS F RUM WHil FIELD PROGRAM 

PNTS-0 

1^1 

READ ( 2 » 600 » IOS! AT -IQS / NN ( I ) f X ( i ) » Y ( I ) » L ( I ) »S ( I ) » DELSTnR ( 1 5 » 
2 • IRN( I ) t ICN ( I ) t SLP ( I ) 

CO FORMAT <1V»5F10.j»2I10»1F10.5) 

.-IF ( 10S » NE . 0 ) THEN 
PNTS-I-1 
RETURN 
END IF 
I^I + l 

REAB< 2»o00» IOC i - IOS) NN< I ) * X ( i > » Y ( 1 > , Z ( i ) » S ( 1 ) » DELSTnR ( I / » 
2 IRN< I / * 1CN( 1 ) »SLP( I > 

IF ( IOS « NE * 0 ) THEN 

PNTS-1 

RETURN 

END IF 

DO UHILEvNN(I) . EU . NN ( I - 1 > ) 

I-I + l 

redd ( 2 » 600 ? END— 602 / rii i(i)f,<(i)is(i)ii(i)ij(i)> d*i 1 s tar \ i ) 

2 t IRN(i) »1CN( i) »SI.F(I ) 

END DC 

02 CONTINUE 
r ’NTS-I-l 

BACKSPACE ( UNIT -2 ) 

IOS^O 

RETURN 

END 

SUBROUTINE LAST RITE (LINE) 


ALL OF THE NETWORKS FOR WHICH A VISCOUS ANALYSIS 

WAS MADE HAVE DEEN READ SO NOW WRITE OUT THE REST OF THE ORIGINAL PAN 


CHARACTER LINE*GO 
lOS^O 

14 CONTINUE 

READ\3f615* IOS I A I — 1US > LINE 

15 FORMA I (A80) 

WRITE: 4, 615/ LINE 

IF s IOS • NE* 0 > UU 10 610 
GO TO 614 
13 CONTINUE 
RETURN 
END 


SUBROUTINE READS ( 1US r M r N > NNCUUN I * X**'n t YPA * LPn t L 1NE ) 


C THIS SUBROUTINE RtADS THE ORIGINAL FAN AIR PROBLEM 
C ( ONE NETWORK AT A TIME '/ AND WRITES THE NETWORK OUT 10 THE 


025 


n n n n n n o- non r* n n o- o| o- n n n n non 


NEW PAN AIR PROBLEM 
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CHARACTER LINE*BO 

DIMENSION XPA(20»2G) »YPA(20»20> »ZPA(20»2G) 

FIND THE NEXT NETWORK AND WRITE GUI TU THE NEW FILL ALL 
LINES BEFORE THE NETWORK DEFINITION BEGINS. 


IOS^O 

3? CONTINUE 

READ ( 3 r 640 r I 03TAT T OS ) LINE 

4T> FORMAT (ABO) 

IF( IOS.NE.O) THEN 

RETURN 

END IF 

WR I TE ( 4 » 641 ) LINE 

41 FORMAT ( A30 ) 

FIND THE LINE WITH THE INITIAL L'HARAC" C RS * NETWORK * 

DO I^l>10 
J^I F3 

IF (LINEv I J J ) .EU. ' NET W ' ) GO TO 642 
END DO 

TRY NEXT LINE 

GO TO 63? 

42 CONTINUE 

WE HAVE FOUND THE BEGINNING OF A NETWORK 


NOW LOCATE THE *=* SIGN 
DO K-J >55 

IF ( LINE ( K IK ) .EU. ' - ' ) GU TU 643 
END DO 

643 CONTINUE 
C 

C NOW FIND THE NETWORK NAME 

N1-KT1 
DO J-K»5G 

IF ( LINE ( J i J ) . NE . ) GU T 0 644 

Nl-Nl+1 
END DO 
C 

C FIND END OF NETWORK NAME 
C 

644 CONTINUE 
N2-N1 

DO I -N 1 » 55 

IF (LINE( I ; I ) .EU. ' ' > I HEN 

N2-I-1 

GO TO 645 
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END IF 
END DO 

645 CONTINUE 
C 

C NOW FIND THE DIMENSIONS (MXN) Uh I HE NETWORK 
C 

C FIRST FIND M 
C 

M-0 

DO I-N2+1 f 30 

IF < LINE ( I : I > ♦ NE . ' ') I HEN 

READ(LINE( I : I ) » 646 r ERR-63V ) M 

646 FORMA! (11) 

N3=I+1 

IF (LINE ( N3 I N3 ) .NE. ' ' ) 1 HEN 
READ ( LINE( I J 1 + 1) » 64 / » ERR^639 ) !•'. 

647 FORMA! (12) 

N3-I+2 
END IF 
END IF 

IF (M.NE.O)GO 10 648 
END DO 

648 CONTINUE 

IF ( I . EQ . 30 ) GU 10 66V 
C 

C NOW FIND N 
C 

N— 0 

DO I-N3 1 30 

IF ( LINE ( I J 1 ) .NE. ' ' ) THEN 
READ ( LINE ( 1 1 1 ) » 650 ? ERR— 66V ) N 

630 FORMAT (II) 

IF (LINE( 1+1 1 1+1 ) .NE. ' ') (HEN 
READ ( LINE ( 1 : 1 + 1 ) » 6U1 . ERR^-66V ) N 

631 FORMAT ( 12) 

END IF 
END IF 

. IF(N.NE.O) GO IU 6U2 
END DO 

632 CONTINUE 

IF ( I . EQ . 30 ) GU TU 63V 
C 

L NOW READ AND URUE (HE COORDINATES OF 1 HE NE1UURK 
NNCQUNT-NNCOUN I +1 

"73'7" FORMAT ( 3X r ' M— ' » 16 1 10X r ' N— ' » 16 ) 

DO Jj-lrN 
DO KK-1 t M 

READ ( 3 f + ) XPA ( JJ • ivK ) t YPA ( J J » KK ) t ZP A ( J J » KK ) 
WRITE ( 4 t /VO ) XPA ( J J » KK ) »YPA(JJ»KK) » ZPA ( J J f KK ) 
790 FORMA I ( 3F20 . 5 ) 

END DO 
END DO 
103-0 
RETURN 
END 
C 
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POOR QUALri . 

C 

3UBR0U T I NE BC INTERP ( SLP f il f N f XPA » YPn f ZF’A f X f Y *L>bl >b2>bj>b4) 

C 

THIS SUBROUTINE 1NIERFULAIES I HE VELUUlliES l-UK I HE CENTER CUNlRUL 
POINTS IU GET THE VELUUlliES FUR I HE EUUE CUN I RUL F'UlNTS 


DIMENSION 31(20) f32(20) f So ( 20 / f S4 ( 20 ) fX(500) fY (300) f Z ( GOO ) 
DIMENSION SLR (500) fXFA(20f20> f YPA(20f20) fZPA(20f20> 


FIRST EDGE 

L1-(M-1)*(N-1> 

L2-M-1 
L3-N-1 
DO L-l f Lo 

INTERPOLATE FUR ORDINATES UF EDGE 1 CONTROL POINTS 

XCP— (XPA ( L f 1 » + XPA ( LP1 f 1 ) )/2.0 
YCP — ( YPn ( L f 1)+YPA(L+1 f 1 ) )/2.0 
ZCP = ( 7J'r' ( L f 1 > PZPn ( L + l . 1 ) > /2 . 0 
KKK-2+ (L-l *(M-1 ) 

DEL3-3! D ( Kr.ii > -SLR ( KKK- 1 ) 

DELX-X ( KKK ) -X ( KKK-1 ) 

VALUE-SLP ( KKK- 1 ) + ( ( DELS/DELX ) * ( XCP-X ( KKK-1 ) ) ) 

SI ( L ) -VALUE 

IF( VALUE . LT .0*0) SKD-0.0 
END DO 

SECOND EDGE 

DO L-l f L2 

XCP-(XPA(NfL)+XPA(NfL+1 ) )/2.0 
YCP=(YPA(NfL)+YPA(NfL+1 ) )/2.0 
ZCP=(ZPA(NfL)+ZPA(NfL+1 ) ) /2 ♦ 0 
KKK=(M-1>*(N-1>-(M-1>+L 
JJJ-(M-1)*(N-1)-2*(M-1)+L 
DELS-SLP ( J J J ) -SLP ( KKK ) 

DELY-Y ( J J J ) -Y ( KKK > 

VALUE-SLF’ (KKK ) + ( ( UELS/DELY ) * ( YCP-Y ( KKK ) ) ) 

32 ( L ) -VALUE 

IF (VALUE.LT. 0.0) S2 ( L ) -0 . 0 
END DO 

EDGE 3 

DO L-l f L3 
L4-N+1-L 

XCP-(XPA(L4fM)+XFA(L4-1 fM) )/2.0 
YCP= ( YF’A ( L 4 f M ) + YPA ( L4- 1 f M ) )/2.0 
ZCF = (ZPA(L4fM)+ZPA(L4-1 fM) >/ 2.0 
KKK*(M-1)*(N-1 )-(L-l)*(M-l ) 

DELS-SLP ( KKK-1 ) -SLP (KKK) 

DELX-X ( KKK-1 )-X( KKK) 

VALUE-SLP ( KKK ) + ( ( DELS/DELX > * ( XCP-X ( KKK > ) ) 

33 ( L ) -VALUE 

[F (VALUE.LT .0.0) So ( L ) -0 . 0 
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END DO 
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iE 4 OF POOR QUALITY 

DO L-1.L2 
L5-I1+ 1 -L 

XCP- ( XPA ( 1 » L5 ) tXE'A ( 1 » L5- 1 ) > /2 . 0 
YCP- < YPA ( 1 » L5 ) +YF‘A ( 1 r L’j- 1 ) )/2.0 
ZCP = ( ZPA (1? LU ) rZPA (If LU-1 ) ) /2 • 0 
Kl\k— fl — L 

JJJ-2*U1-1)+1-L 
DELS-SLP ( J J J ) -SLR ( KKK ) 

DEL Y-Y ( J J J ) -Y ( KKK ) 

UALUE-SLP(KKK)+( (DLLS/ DLL Y )*( YCP-Y (KKK) ) ) 

S4 ( L ) -UALUE 

IE ( VALUE . L T • 0 « 0 ) S4(L)-0.0 

END DO 

RETURN 

END 


Si- ^ROUTINE I DBC ( DC r LINE ) 

THIS SUBROU 1 1NE FINDS I HE UR1UINAL BUUNT'ARY CUNUi I 1UN AND DE I ERMINES 
WHETHER U WAS A UPPER UR LUUER SUBCLASS 

UHARACTER LINE*S0»BC*4 
99 CONTINUE 

READ ( 3 » 700 f I US I A T ■= IUS ) LINE 
IF ( IOS.NE.O) RETURN 
GO FORMAT ( A80 ) 

CHECK FOR ’BOUir IDEM I IFIER 


DO 1^1 » 10 
J— I +o 

-IF ( LINE ( I ; J> ,EU. ' BUUN ' > UU TO 705 
END DO 


THIS LINE DOES NUT SPECIFY (HE BOUNDARY CUNDITION SU 
WRITE 1 HIS LINE TO THE NEW FILE AND UU TU NEXT LINE 


WRITE ( 4 » 700 ) LINE 
(30 TO 699 
CONTINUE 


THIS LINE CON I A I NS 1 HE BC SO SORT OUT THE REST 
OF THE LINE 


FIND THE SI UN 

DO K- J f 50 

IE (LI NE ( K • K ) • EU . ' — ' ) UU I U 7 10 
END DU 
710 CONTINUE 
C 
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C NOW LOOK FOR 'UPPER* IJK 'I.UWEK' 
rill TK-K » 76 
1 J-IK+3 

[F ( L INE ( IK : IJ) . EN « ' IJPPE ' ) UU TU 725 
tF(LINE(IK:iJ).tU. LlJWfc ' ) UU IU 725 
END DO 
WRITE ( 6 » 720 ) 

720 FORMAT ( // ? 20X » ' I HE BOUNDARY CONDITION MUST BE CLASS 1 ? ' ? / ? 

2 20X» 'SSUBCLASS UPPER UR LUWER PRIOR IU I Ht VISCOUS ANALYSIS'? 

3 / » 20X * ' 1 F I HE SUBCLASS INDEX WAS USED INSTEAD UF I HE KEYWORD ' * 

4 / » 20X » ' I HEN CHANCE 100 I HE KEYWORD UES10NA I ION • * > 

725 READ (L1NE( IK i IJ) » 726 ) BC 

726 FORMA I ( A4 ) 

" C 

C THE BOUNDARY CONDITION SUBCLASS HAS NUW BEEN IUENI1FIED. 

NOW WRITE OUT ANY ADDITIONAL LINES WHICH EXiSlED IN I HE 
ORIGINAL PAN AIR PROBLEM BETWEEN I HE BC AND 1 HE NEXT NE I WORK 

CONTINUE 

READ (3? 700 » END^ /40 ) LINE 

NOW CHECK FOR NETWORK DESIGN A I ION 
C 

DO 11=1 »20 
JJ-I 1+3 

£F(LINE(II:JJ).EU. ‘ NET W ’ ) I HEN 
BACKSPACE (UN IT -3) 

GO TO 740 
END IF 
END DO 
C 

C THIS LIME IS MU I A NEW NETWORK SU WK1IE IT OUT TO 1 HE MEW PAN AIR PRO 
C 

WRITE (4., 00) LINE 
GU IU 727 
740 CONTINUE 
RETURN 
END 
C 

SUBROUT I HE R I I EBC ( BC * SLF’ » M » M ? PH I S ? XPA » Y PA » ZF’A * X * Y * 2 * S 1 * S2 * S3 t S4 > 

C 
C 

C THIS SUBROUTINE WRllES OUT l Ht MEW HUUNDAKY CONDI I lUiTS FOR I HE V1SCUU 
C 

CHARACTER HC-^4 

DIMENSION XPA ( 20 ? 20 ) » YPA t 20 1 20 ) t 2.PA ( 20 » 20 ) r X ( 500 ) * Y ( '.j 0 0 ) *2(500) * 

2 SLP ( 500 ) 

DIMENSION SI (20) »S2(20> »S3(20) *S4(20) 

WRITE ( 4 » 755 ) BC 

755 FORMAT (' BOUNDARY CUNDlllUN - 2»'*A4) 

WRITE (4. 756) 

756 FORMA T( 'SPEClh 1ED P LOW ' » / » ' 1 ERM = l ' ) 

WRITE ( 4* 757) 

757 FORMAT ( ' PU1IT I S = CENTER > 

WRITE (4? 75H) 

758 FORMAT ( ' %/ ULIIFLUW UELUL1IIES FOR PANtL CENlER F’OlNlS ) 
ILIM*<M-1)*(N-1) 


n n n n n r. r. 


75? 


7 60 
761 


iF(PNIS.NE.lLiM) IHRN 
WK i I E ( 6 r $ ) 

UR 1 1 E ( 6 » # ) 

UR I TE ( 6 t M ) 

URITE iot*) 

URI TE ( 6 » * ) 

WRITE ( 6 » ♦ ) ' 

WRITE <6»7SV> M » N » F’NiB 
F'QRMAT ( oX » ' M = '»16 »jX» 
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CnUriUN ; I HE NUMBER UF HllUNUnKY CUNDlllUNb PRUDUCRD 
FROM I HE WHITFIELD F’KUUKMM DUES NU I MM I CH I HE NUMBER 
UF PANELS READ F HUM I HE URlUiNAL F AN AIK PKUHLEM . 
CHECK NEW PKUBLEM BEFORE EXECUTING.' 


N- ' » lJr jX> ' PN I S-~ 


16 ) 


END IF 

IF ( BC ( 1 T 4 ) . EU • ’ LUWE ‘ ) I HEN 
UO 1-1 »PNT3 
SLP(I)--SLP(1> 


END DO 
END IF 

WK I TE v 4 t 7 oO ) (3LF’(i)» 1— 1»PNI3) 

FURMAI (6(F10.6»2X> > 

WRI TE ( 4 » 7bl ) 

FORMAT ( 3 1 ' %/ '»/)»' PU IN I 3 — EDUE ' ) 

URI TE ( 4 f 7 o'il ) 

FORMAT ( %/ BEUIN URLUC1T1ES FOR EDUE 1 ) 


NOW lNlERPOLMIE VELOCITIES FUR URN IER CONTROL F'UIHIS IU GE1 VRLUCIT IE 
FOR EDUE CUNIROL POINTS 


CALL BC IN FEF:F t CLP » M » H » XF'A » YPM t 2PA » X » Y » 2 » SI » S2 » S3 » 34 ) 

URITE OUT EDUE VELUC11 IES AND CALCULATE MOU. VELOCITIES FUR AUDIT lUi-i 


A1 =0 . 0 
A I -0*0 
DO I - 1 » iJ - 1 
A 1 — A 1 F 1 . 0 
WKilE(4.7o3) 31(1) 

M1-A1+S1 ( 1 ) 

763 FORMA I (2X.F12.6) 

END DO 
f. 1 — A 1 / A 1 
URI 1 Rv4» 7o5> 

7 65 F ORMA T ( ' %/ ? / t ’ %7 ' ) 

WK 1 1 E ( 4 1 7 do ) 

Zoo FURMAI ( BEGIN EDUE VRLUCII1R3 FUR SIDE 2 ) 

M2— 0 . 0 
A 1-0.0 
DU 1-1 Ml- 1 
Ml =A1R1 .0 
WKilRv4»766) 32(1) 

M2— A2 + S2 ( 1 ) 

END DU 

M2— M2/ A I 

URllEv4»7o5) 

URl)E(4»7o7) 

7d7 FURMAI v. ' %/ BEGIN EDGE VRLUu I 1E3 FUR 31DE 6' ) 
A 3 — 0 . 0 
Ml-0 .0 
DU 1 -1 * N-l 
Ml— M1F1.0 
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END DO 
A3-A3/A1 
UK I TE C 4 t 765 ) 

URITEC4, 768) 

768 FORMAT ( ' %/ BEGIN LUGE VELOCITIES FOR 81 LIE 4 ) 
A4-0 • 0 
Al -0 • 0 
LIU I — 1 » M — 1 
A i — A i +1 ♦ 0 
UK1 TE ( 4 * 763 ) S4C1) 

A4=A4+S4C I) 

END DO 
A4-A4/A1 

U 

C NOW UKilE ADDITIONAL CUN I KUL RUIN T8 

C 

UK1 TE 1 4 » 765 ) 

UK 1 1 E v 4 ? 7 69 ) 

/ 69 FORMA T (' F’UIN I S — ADDITIONAL ) 



URITE ( 4 » 7 70 ) 

A 1 


770 

FUKlIA T ( 2X f ■ ( 

1 ) 

- ' f F 12 • 6 ) 


URITE ( 4» 771 ) 

A2 


771 

FORMA T ( 2X t ' C 

2 ) 

- ' » F 1 2 . 6 ) 


UR I TE ( 4 » 772 ) 

A3 


772 

FORMAT ( 2X » ' ( 

3 ) 

= ' r F12 . 6 ) 


UR I TEC 4* 773) 

A4 


773 

FORMAT ( 2X » ' ( 

4 ) 

= ' -F12.A) 


UR I TE v 4 » 768 ) 

RETURN 

END 
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C.3 Sample Run of Viscous Simulation Module 


The simplified wing-body problem shown in Figure C-l was analyzed to demonstrate 
the Viscous Simulation Module. The inviscid flow field properties for this configuration 
were first determined using PAN AIR. The PAN AIR problem for this configuration is 
presented in Section C.3. 2. The inviscid flow oroperties were then used to calculate the 
boundary layer on the wing upper and lower surfaces. A new PAN AIR problem with the 
wing boundary layer simulated is presented in Section C.3. 3. This process was 
accomplished completely within the Viscous Simulation Module with the inputs and 
execution shown in Section C.3.1. 
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C.3.1 Sample Execution of Viscous Simulation Module 


The execution of the Viscous Simulation Module which converted the PAN AiR 
problem presented in Section C.3.2 to the new PAN AIR problem presented in 
Section C.3.3 containing specified boundary conditions is illustrated in the following 
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THTS FILL Hil l OPEN THE DATA BASE NAME.D ORDER AND REARRANGE 
THE MATA PARAMETERS INTO A FORMAT COMPATABLE WITH PAN AIR . 
RI. 1 1 SORT IS NOW EXECUTING . 
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THE PROGRAM LINK HAS BEEN EXECUTED 


C.S.2 Original PAN AIR Problem 


The input problem for the original inviscvd PAN AIR run is presented in the 
following pages. 
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ORIlilHAL i AC£ :3 

OF POOR QUALITY 


MAMNHUr PNt I 1100 1 CM 1U 4000 * '( UL t TLl! t Ko « 

ACCUUN I < I* HASb t I 'JlillO / 

U i SPU'SL t UU I F'U I t o I -AKS 1 XU t *PK • 

CUMMtNT. RUN 1HE FHUUUCIlUN VLKbiUN UF PnNiiiR 
COMMEN I . b I URtli MS L 111 1 1 JRUNF'ANA IK . JCL UN CAPAiK«.» 
COMMEN I . 

CUF iSF'l INRUI tUUIKUl ) 

KEWINU l 1NPU I > 
bt I NAME ! F HASbUU > 

mount cvsn-uoiiid; 

REUUEb I t I APES f 3N-F HnbbUU t £F'F • 

KtUUt 3 T t I APE 1 0 1 3N-F HnbbUU t IKF’F * 

KtLlUEb I r lnF'ElltbN-F HnbbUU r $PF « 

AUUil ( I D -F’Hn 1 Ub t A i — F' ) 

COMMENT. PURUE ANY UI.U Un I ASE IS I Hr. I iliUHl bE I HERE 
EXITtU. 

CUMMEil T . ATTACH ANU EXtLU I t I HE NEC MUUULE 
n TTACHl MEC t iU -F'nNnlFl ) 

NEC . 

SUMMARY . 

RE 1 UFlH ! NEC ; 

CUNNEN1 . ATTACH AMU EXECU I E I HE UiF' NUUULE 
A TTACH (. UlPt 1 U -PANn iR ) 

U 1 1 ' (. INPUT t PL -100000) 

SUMMARY • 

KETUP.MC DIP) 

CUNNEMT . ATTACH nNU EXECU I E I HE DUU NUUULE 
A TTACH l ULlU t lU-F'nNniR ) 

UUG v PL = 100000 ) 

SUMMARY . 

RETURN! UUG ) 

CUMMLNl . nTTnCH nNIJ EXECU I E THE MAU NUUULE 
A 1 TnCFi ( MAU t lU-'F'AHAiFl > 
iinU . 

SUNMAFl i . 

FIE I URN ? NnU • 

CUMMLNl . nTTnCH nNU EXECU 1 1 I HE Fill'd NUUULE 
A TTnCH ! RMb t i II -PnNn i R ) 

FINS • 

SUMMARY* . 

RETURN 1 RMS > 

CUNNEMT. ATTACH nMl.l EXECU 1 1 I HE RHS NUUULE 
ATT ACH ( FlHb t iU -F'AFiA iFl ) 

RHS . 

SUMMARY . 

RETURN < RHS > 

COMMENT. ATTACH AMU EXECUTE THE MUU MUUULE 
A TT ACH ( MUli t 1 U -F’ANn IR ) 

NDG . 

SUMMARY . 

RETURN c MOO) 

COMMENT. ATTACH AMU EXECU I E I Ht PUR MUUULE 
ATTACH (F'liRt ID-PAH A IP.) 

POP ( PL -40000 ) 

SUMMARY . 

RETURN (POP) 

COMMENT. ATTACH ANIi EXECU I E I HE CUP MULUJLE 
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ATTACH (CUP f LiLlP » ID-FANAiK ) 
CDF . 

SUMMARY . 

RETURN (CDF) 

COMMENT. ATTACH AND EXECU I L 
ArTnCH(FFF» lD-PANAlR) 

FFF . 


origiw: - 

OF PC- -i 


\lTj 


*; 
' - 

i 


I HE FFF MODULE 


SUMMARY . 

RETURN ( PPP ) 

SUMMARY . 

EXITfU. 

REWIND C TAPE? » I APE 10 » IAPE11) 

COPYSBF ( TAPE? f UU FPU I ) 

COPYSBF ( 1 AFEIOfUUIFU I ) 

COFYSBF ( TAFE11 fUUTPU l ) 

EXITfU. 

REWIND (INPUT) 

CATALOG f TAPE? ? PPPVF fSN-FHASBUUf ID-FHaJCB. 

CAFALUGf F APE 10 fPPPIOF fSN-FHASBGDf ID-FHA1CB. 

CATALUUf TAPE11 fPPPIIF fSN-FHAGBGF f ID-FHA iCf . 

AUDIT ( ID-FHAICB f A1 -P ) 

%£EOR 

PAN AIR / THIS IS I HE FIRS I CARD UF MEC INPUI FOR CDC /600/HCUPt 
SYSTEM F’ANnlR FHASBjU AMES 

RID -CHECKOUT UF PANAIR METHUD FUR VSTUL ANALYSIS 
DATA BASE DIRECTIVE BLUCK 
APPEND DAR TO ALL 
U I D ^ FHAICB FUR ALL 
SET FHASBGD FUR ALL 
MU ID- F’ANAIR FOR ALL 
MSET— FHASBGD FUR ALL 
END DATA BASE DIRECI1VE BLUCK 
CHECK DA I A RUN 
EXECUTION DIRECTIVE BLUCK 
FIND POTENTIAL FLOW 
END EXECUTION DIRECTIVE BLUCK 
END PAN AIR DIRECTIVES 

%;:egr 

-*/ 

%/ 

%/ 


%/ DIP INPUT - FILE RIFT.JUB 

*/ WING-BUDY PRUBLEM FOR CHECKOUT UF VISCOUS EFFEC1S MODULE 

x; 

X/ 

X/ 

%/ 

BEGIN GLOBAL DAI A 

P ID-MODEL TO CHECK UU I VISCOUS EFFECTS MUDULE 
UID = BHA I ELEY/HUUELL UENERAL DYNAMICS SI.' /J>2 4811 
CONFIGURATION - FIRST .ONE PLANES UF SYMMETRY. 

MACH — 0 . 600 f CALFHA — 4 .Of CBET A - 0.0/ RECO!.*' LiU 


ALPHA = 4.0 

SID -ZERO-DEGREE 

TOLERAiTCl. - 0.1 

SURFACE SELECTION - UPPER 

SELECT I UN UF VELUCHY CUMFU I A I ION- 


H6 


l j / 
/ G« 


BUUNDARY -CUNII L I LUif , UV 
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ORIGINAL PAG£ r; 
OF POOR QUALITY 


PRESSURE CUEM-1C1ENI RULES- iSEN'l RUF’IC » SECUNLi-URUER /U12 

%/ 

CHECKOUT PRINTS ^ HlRrl»2f3f UUU»1»4»U 
BEGIN NE1UURK HA I A 

%/ THESE nRE THE Nt I WORKS FOR U1HU-U0DY MUllEL 


%/ 

NE TU 0 RK-N 0 SE -1 IS 4 

0.00000 

0.00000 

0.00000 

0,00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . 0000 o 

0.00000 

0.00000 

0.00000 

0.00000 

ijU . Juu j4 

• 

33 . 33334 

33 . 33334 

33 . 33334 

33.33334 

33 . 33334 

33 . 33334 

33 . 33334 

33 . 33334 

33 . 33334 

33 . 33334 
33 » 33334 

33 . 33334 

33 . 33334 
66.6060/ 
66 . 6 ooo 7 
60 . 6606 / 

66 . 6666 7 

00 . 0000 / 
66.6666/ 

66 • 6606 / 

66 . 0666 / 

66 * 6 oo 67 
66 . 6666 / 

66 . 66667 
66.6666/ 

66 . 66667 
66 . 6666/ 

66 . 66667 

100.00000 

1 00 . 00000 

100.00000 

100.00000 

100.00000 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . ocooo 

0.00000 

0.00000 

0.00000 

-10.00000 

3.4337? 

—9 . 3768 1 

3 , 34456 

—8.61/79 

6 . 30164 

— / . 6527 4 

7.68819 

-6.34813 

b. 83037 

-4.42339 

9,6 /*J0b 

-2. l/"88 

10.00000 

0 . 00000 

9 » 67205 

2 . 1 7988 

« ^ t\ 

O ♦ JOUJ/ 

4 . 4233V 

7.68818 

6 . 3481 3 

6 . 50164 

/ « oj 1: /' 0 

3,34435 

8.61/ 7V 

3 . 4bbVb 

9,3/681 

0 . 00000 

10. OOOOO 

0.00000 

-20.00000 

6.71 7V / 

-18. Z3362 

10.68912 

— 1 / . 23338 

13. 00329 

—13. 30349 

13,3 /63 7 

- 1 2 .69626 

17. 660 74 

-8.84/18 

19.34411 

- 4 . 3597o 

20.00000 

0.00000 

17.34411 

4 « 339 76 

17. 660 7 4 

8.84/16 

15.3763/ 

12.6962/' 

13.00328 

13, 3034V 

10. ob9 1 0 

1 /' . 2 3338 

6 . y 1 7V5 

lo./ JoOw 

0.00000 

20 « 00000 

0 . 00000 

“30 . 00000 

1 0 . 3 / 0 9 0 

*20 « 1 *4 0 4 

1 0 . 0336 / 

• r_ . • r ... 

• OoouO 

19 . 3 0 4 7 ^ 


23.06436 

“19 .04439 


original r/\cn :: 

OF POOR QUALITY 


100.00000 

26.49111 

-13.270// 

lOO.OGOOO 

27.01616 

—6 . 33764 

100.00000 

30.00000 

0.00000 

100.00000 

29.01616 

6 . 33764 

100.00000 

26.47111 

12.7/0 / 7 

100.00000 

23.06433 

17.04440 

100.00000 

17.50472 

22.75823 

100.00000 

16 . 02366 

2-j . Bow j / 

100.00000 

10* 37673 

28. 13043 

100.00000 

TRIANUULAR PANEL TOLERANCE ^ 

0.00000 

.003 

30.00000 


BOUNDARY UUNU1I1UN - 1 t LUUER 

*7 

%/ 


NETUURK-FUD-BUD Y-2 

15 

J 


100.00000 


0.00000 

-30.00000 

100.00000 


10.2/ 676 

-28.13042 

100.00000 


16. 0226 / 

~ vJ ♦ BjwlOU 

100.00000 


19.50473 

- 22. 1 3823 

100.00000 


23 . 06456 

- 17 . 04437 

100.00000 


26.47111 

-1 o.2 70/7 

100.00000 


27.01616 

—6 . 33764 

100.00000 


30.00000 

0.00000 

100.00000 


29 • 01616 

6 . 33764 

100.00000 


26.47111 

13.2/0// 

100.00000 


23 . 06433 

17.04440 

100.00000 


19.50472 

22.75823 

100.00000 


16 . 03366 

23 . 8322 / 

100.00000 


10.3/673 

28. 1304o 

100.00000 


0.00000 

30.00000 

120.00000 


0.00000 

—30 . 00000 

120.00000 


10.37676 

-28.13042 

120.00000 


16. 03267 

"L j « ti j Jog 

120.00000 

• 

17.30473 

-22.75323 

120.00000 


23 . 06456 

-17 . 044o7 

120.00000 


26.49111 

—13.2/0// 

120.00000 


27-01616 

— 6 . 33764 

i.20. 00000 


30 . 00000 

0.00000 

120.00000 


29.01616 

6 . 33764 

120-00000 


26.47111 

1 3 . 2 / 0 / 7 

120.00000 


23.06455 

17.044-10 

120.00000 


19.50472 

22.75823 

120.00000 


16 . 02266 

•iL%j « Joo / 

120.00000 


10. 376 7 o 

28.1 3043 

120.00000 


C .00000 

oO. OOOOO 

140.00000 


0.00000 

-30.00000 

140.00000 


10. 3 / 676 

-28.13042 

140.00000 


16.0226/ 

- 23 . 33226 

140.00000 


19.50473 

-22.73320 

140.00000 


23 . 06436 

-17.04439 

140.00000 


26. 4V11 1 

—13. 2/07/ 

140.00000 


29.01616 

-a . 337 6 4 

140.00000 


30.00000 

0.00000 

1-10.00000 


27.01616 

o . 53764 

140.00000 


26.47111 

12.2/07 7 

140.00000 


23.06433 

17.04440 

140.00000 


17.30472 

22.73823 
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140.00000 lo. 03566 

140.00000 10.5/695 

140.00000 0.00000 

TRIANGULAR PANEL TOLERANCE - .003 

BOUNDARY CUNUlllUN - l.LUULR 
*/ 


j . H j u j / 

28.1 S043 
30.00000 


%/ 

NETU0RK-LWR-tH)DY-3 8 


140 

.00000 

0.00000 

-50.00000 

140 

.00000 

10 » 57696 

-28.15042 

140 

.00000 

1 6 . 0556 / 

“•i! j ♦ d j joo 

140 

.00000 

19.50493 

-22.93423 

1 40 

• 00000 

23 . 06456 

-IV. 04459 

140 

• 00000 

26.491 1 1 

“15.2 /0 / / 

140 

. 00000 

2y .Ololo 

-6 . 36964 

140 

.00000 

50 . 00000 

o « ooooo 

150 

. 13/63 

0.00000 

—50 . 00000 

150 

.13/63 

9 . 435 /5 

“28 • 40252 

150 

♦ 1 J/ oo 

1 4 . 6 / 5 1 2 

— 2o . 3 /32V 

150 

. 1 37 68 

18.05844 

” 4. • j4ij JO 

150 

. 15768 

21.47990 

— 2C . V30 / / 

150 

. 157 63 

25 . 04500 

•lo. 05478 

150 

.137 68 

.n -4 , »rr • '•!» 

/ • O w'OuO 

-10.1 460- 

150 

. 157 63 

29 . 34405 

-4.56021 

130 

. 33968 

0 . 00000 

“50 . 00000 

130 

♦ OO 7 od 

3 . 635 1 5 

-28 • 60 1—3 

130 

. 33968 

13. 52987 

—2 / . 0o4 1 2 

130 

. 35963 

16.31415 

- — u . 5 — i > 6, 

130 

. 33968 

20 . 10/23 

"<!2*o/oo/ 

130 

. 35963 

• *» * r 

4.0 • / 4UJ/ 

4 . 151/8 

1 80 

. 33963 

4-0 • OJ7 2w 

12.7 1 553 

1 30 

• do 7 00 

-8 . jot / t 

— / • / 4840 

1:23 

.97174 

0 . 00000 

-50 . 00000 

223 

.971 /4 

8 • 6949 1 

” 4.0 « j / o / o 

223 

.97174 

13. 54501 

— 2 / . 038 1 4 

223 

. 9 7 1 7 4 

16. 35045 

— 23 . 5 1 o o 3 

223 

. 97174 

20.1 2343 

--2. ->38/ 1 

223 

• 9 7 1 / 4 

23 . /33o9 

-lo. 10343 

223 

. 9 7 1 / 4 

• • ■ -Trc 

4-0 « O / JJ7 

-12.8 /822 

223 

.97174 

_o • j / bo j 

— / • / 037 4 

2o7 

r • • • 

« lOjoo 

0 . 00000 

-50 . 00000 

40 / 

. 20565 

9 . 5551 0 

— 23 . 37 002 

26 7 

. 20565 

14. 35005 

-26.47054 

n < — • 
4-0 / 

• 4-0vJOO 

13.22470 

- - 4 . 13/85 

2o 7 

. 20565 

* * i •*»••» r 

Li t OO / oo 

- - 0 . /I >71 

2o 7 

• 20 G65 

r*rr 944 

4. O • 4-0000 

-16.0 70^9 

*:o ✓ 

« 20266 

23 .026/5 

— V « / 0 Jt. j 

267 

. 20565 

29 • 42883 

“5.81 817 

293 

i— / * ^ 

♦ UJO*^J 

0 . 00000 

“30 « 00000 

293 

• 05o45 

10 . 2 1 655 

“28 < 1 / 6 v /6 

293 

« 05o43 

15.31295 

- 23 . 985/ o 

298 

•\C «| * 

♦ vjonj 

1 9 . 2 o 2 1 / 

“25 . 18832 

2 7 0 

. 05o4o 

22.81231 

- 1 9 .5/567 

293 

. 05o43 

2 o ♦ 26452 

“!lo* / 4 1 — 3 

2 Vo 

. 0 5 o 4 3 

23. 35 9 lo 

— / « 134/0 

298 

. 05o4o 

29,88927 

— v) « /5o • ' 1 

j 1 0 

. 00000 

0 • 00000 

*j0 • OOoOO 


ORIGINAL FAGS ?S 
OF POC-1 QUALITY 


310 . 00000 

310. 00000 

310.00000 

310. 00000 

310.00000 

310.00000 

310.00000 

IRInNUULAK PANEL I ULERANCE - 

BOUNDARY LUND1IIUN - 1» W UUER 


1 0 . 3 /' o V o 
16. 033ct / 
19.3049o 
113 • 06436 
26.4V111 
29.01616 
30.00000 
. 003 


*/ 


♦ 7 


-2H. 13042 
-23 . 82226 
-22.93B23 
-19.04439 
-13.2 /‘O 7 7 
-6 . 33V64 
0.00000 


NETUORK-UPR-BUUY-4 H 


140 

.00000 

30. 00000 

0 ♦ 

00000 

140 

.00000 

2V . 0 1 o 1 6 

◦ ♦ 

3396 4 

140 

.00000 

26.491 1 1 

13 ♦ 

27077 

140 

.00000 

23 . 06455 

IV • 

04440 

140 

.00000 

19.50497 

*j'i # 

93822 

140 

.00000 

16. 03366 

25 . 

8333/ 

140 

.00000 

10. 37693 

28. 

1 7.043 

140 

.00000 

0 • 00000 

30. 

00000 

130 

.13 760 

2V .34405 

4. 

36020 

130 

• 137 60 

27 . 8562V 

10. 

14801 

150 

.137 60 

25 . 0430 1 

16 ♦ 

034 Vo 

150 

. 137 60 

21.47990 

2sj ♦ 

950 7 7 

130 

. 1 37 60 

18 . 03843 

*34 4 

32330 

150 

. 13760 

1 *.67511 

26. 

3 7 329 

150 

. 13760 

9 . 435 72 

28. 

4 0 2 3 5 

150 

. 1 3760 

0.00000 

30 . 

00000 

130 

.33961 

•2.3 ♦ J O / 1 

7 4 

74840 

130 

. 339o 1 

26 . 63920 

12. 

9 1 J3o 

130 

. 8396 1 

23. 72037 

18. 

13179 

130 

• 33761 

20 .10 72' 3 

• f 

*r 4 

3 / 6 o o 

180 

. 83961 

16.81412 

'•f , 

kJ 4 

32869 

130 

» • 

• Oo 7 0 1 

13.52985 

»r ■* 

- / 4 

06412 

180 

. 83961 

3 . 685 1 2 

28. 

601 2 3 

180 

.83961 

0.00000 

30 . 

00000 

--O 

.971 73 

23 • 57864 

/ 4 

70394 

223 

. 9 7 1 7 3 

• % • *r r <_» 

•_ O ♦ O / JJ7 

12. 

87823 

223 

• 971 73 

23 . 73868 

18 . 

1 03 4 o 

223 

.97173 

20. 12343 

mrndrn • 

3 bo / 3 

•2.-0 

♦ 9 7 1 /' 3 

16 . 83044 

3b 4 

2 1 ooj 

— — o 

.97173 

13.34499 

27. 

0 3 8 1 4 


. 9 7 1 /‘ 3 

8 . 6948V 

3b ♦ 

3 9 8 7 7 

223 

.77173 

0 . 00000 

30 . 

00000 

367 

. 20562 

29 . 42558 

w 4 

8161? 

-o / 

« r“ * ^ 
• wWJOO 

28 • 026 72 

V 4 

7032 4 

_o / 

♦ * J JOO 

w/OOO 

1 J 4 

o ; 6 1 

36 7 

♦ 20066 

21. 68 734 

30 ♦ 

V 
► ‘ 

N.‘ 

vl 

f : 

26 7 

♦ 20063 

13.22468 

24 . 

13 784 

^ 

-o / 

. 20566 

14. 85002 

36 4 

49023 

267 

o 

♦ wWJOJ 

*3 . .1 . 

7 ♦ J JJL» ✓ 

28. 

2 / 002 

•.o / 

. 20563 

0 • 00000 

30 . 

00000 

293 

. 05640 

29.88927 

0 4 

7260 1 

298 

. 05o40 

28.83916 

✓ 4 

13471 

293 

. 05o40 

,.‘6 . 26452 

13. 

74 1 26 

293 

. 05640 

22.81230 

19 . 

2 72/0 

298 

. 05640 

19,26213 

33 4 

1 882o 
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ORIGINAL FAGl >3 
OF POOR QUALITY 


2V8 . 05640 
2V8. 03640 
2V8 < 03640 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310. 00000 

310.00000 

310.00000 

FRIANliULAR PANEL I (JLERANLE - 
BOUNDARY CONDI! 1UN ^ l.LUUER 
♦ / 

#/ 

NE TWORK-LUR— AP T-H(.l)JY— 5 b 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310. 00000 
32o . 6666? 

326 . 6666? 

326 . 6666? 

326 . 6666 ? 

326 . 6666? 

326 . 0666 V 
326 . ooo 6? 

32o . 6666? 

343 • 33334 

343. 33334 
343 « 33334 

343 . 33334 

343 . 33334 

343 . 3 3334 

343 . 33334 

343 . 33334 

360.00000 

360.00000 

360 . 00000 

360.00000 

300. 00000 

360 . 00000 

300. 00000 
OoO . 00000 

IRInNliULnR PANEL I UL t NANCE - 
BOUNDARY CIINUI1 ION - l.LUUEK 
£ / 

/ 

J'lL 1 UJRK-UPR-AP r-HlJDY-o a 

310. 00000 

310. 00000 

310. 00000 

310.00000 


i’3 . y 12 ? i 

23 . VU3 /o 

10.21830 

2 b. i /boy 

0 . 00000 

30 . OOOOO 

30.00000 

0.00000 

2V .01616 

6 . 33 Vo 4 

26 . 4? Ill 

1 a . *. / 0 / / 

2 3 . 06433 

IV .04440 

1? . 504V2 

22.V3H23 

1 o . 03366 

• It. • 1 1 

J • O JoO / 

10. 376 V 3 

2B . 1 3043 

0,00000 

J 

30.00000 


4 


0.00000 

-30.00000 

10-37 6V6 

— 2U . 1 3042 

1 6 . 0336 / 

. bwloOO 

1V.504V3 

-22 • V3823 

23 • 06436 

-IV. 0443V 

26.4V111 

-13.2/0/'/' 

2? . 0 1 6 1 o 

— 6 . 33 Vo 4 

30.00000 

0.00000 

0.00000 

-30. OOOOO 

10.3 /6V6 

-2b. 13042 

16. 0336 / 

—23 . d33oo 

1V.304V3 

-22.V3B23 

23 . 06436 

-IV. 0443V 

26.4V111 

-13.2707/ 

2? . 0 1 o 1 6 

—6 . 33V64 

30.00000 

0.00000 

0.00000 

-30 . OOOOO 

10. 3 /’ 6 V 6 

-2b. 13042 

1 6 • 0336 / 

-23 ♦ b jj jo 

1 ? . 504V3 

-22. V3B23 

23 ♦ 06436 

-IV. v) 443 V 

26.4V111 

— 13.2 70 / /' 

2?.01olo 

—6 . 33V64 

30. OOOOO 

0.00000 

0.00000 

-30 . OOOOO 

10 . o /6V6 

-2b. 13042 

1 6 . 0336 / 

- 23 . b3o36 

1V.304V3 

-22. V3H23 

23 . 06436 

-IV. 0443V 

26.47111 

*lw. 2/ 0/ / 

2V . 0 1 6 1 o 

-6 . 33 Vo 4 

30.00000 

0.00000 

3 



4 


30 • 00000 

0 • OOOOO 

2V . 0 1 o 1 a 

o • j*. » Vu4 

2o . 4711 1 

1 W * k. / O < / 

23 • 0 o 4 3 3 

1 V • 04440 
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ORIGINAL FAGL iS 
OF POOR QUALITY 


310. 00000 

310.00000 

310.00000 

310 . 00000 

326 • 6600V 
326 . 6060V 
326 . 0666V 
326 . 0600V 
326 . 6060V 
326 « 6000V 
326 . 6000V 
326 . 0606V 
343 • 33334 

343 . 33334 

343 . 33334 

343.33334 

343 . 33334 

343.33334 

343.33334 

343 . 33334 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

300. 00000 

TRIANGULAR PANEL TOLERANCE - 
BOUNDARY CONDI HUN - 1,L0UER 
X/ 

X, 

Nt I IJORK-UPR-U 1NG-7 13 

260.00000 
260.85224 
263.35025 

■ **n •< * 1 

/ • 0^00 1 

2 72.4V 731 

273.5322V 

235 . 00000 
2V 1 . 4o ' c 3 
2V7.5025? 

302 . 7 0285 
306.30770 
303.7923c 

310.00000 

240.00000 
241 . 108V2 
244.53406 
250. 1461u 
257.40182 
265.37134 
274.947 6V 

234 .01316 
272 . 4771 4 
297 • 7 654 7 
505 . 1 0062 


IV.204V2 

7 jo*, j 

16. 0226o 

22 . 8222 7 

1 0 . 3 7 6 V 3 

28. 13042 

0.00000 

20.00000 

30.00000 

0.00000 

29.01616 

6 . 22V64 

26. 47111 

13.2/0/7 

22 . 06453 

IV. 04440 

1 V . 30472 

22.V5823 

16 • 02266 

22 . 8222 7 

10.2/6V2 

2H. 12045 

0.00000 

2c . OOOOO 

30.00000 

0.00000 

29 . 0 1 0 1 6 

6 . 25V64 

2o • 4V 111 

12.2/0/7 

23 . 06422 

IV . 04440 

17.504V2 

22.95823 

16 02366 

23 . H322 7 

10. 276V2 

28 . 1 2042 

0.00000 

20.00000 

30.00000 

0.00000 

2V.0161o 

6 • 22V64 

26.4V111 

12.2/0 7 / 

23.06433 

IV. 04440 

19.504V2 

-a. • 7 JO _ J 

16. 02266 

22 . 8222 7 

10.2/'6V2 

28. 12045 

0.00000 

>.00000 


.006 


150.00000 

0.00000 

130.00000 

0 . 452V 4 

150.00000 

0 • 80506 

120.00000 

1 . 15 Wo 

1 50 . OOOOO 

1 . 58/05 

150.00000 

1 . 47387 

130.00000 

1 • wU / J 0 

150.00000 

1 . 08373 

1 5 j . OOOOO 

0 . 704/ 7 

130.00000 

0 . 22078 

130.00000 

0.12874 

130.00000 

0 .04450 

130.00000 

0.00000 

130.00000 

0.00000 

120.00000 

0 . 72493 

130.00000 

1 • w y 4 j/ 

120.00000 

1 .VV227 

150.00000 

2.42471 

130 . OOOOO 

2.62614 

150.00000 

2.42825 

1 50.00000 

1 .87143 

1 50.00000 

1 ..... 1 _ u 

130.00000 

0 . 60487 

130.00000 

0 • C W/OviC 


ORIGINAL PAGE IS 
OF POOR QUALITY 


308 * 3053 V 

150.00000 

0.07621 

310.00000 

130.00000 

0. ooooo 

220.00002 

110.00002 

0.00000 

221.36831 

110*00002 

1 . 01695 

225 . 8178 / 

110.00001 

1 . 98367 

232.96872 

110.00001 

2.84516 

242 • 30637 

110.00001 

5 » 48239 

253.21042 

110.00001 

5 » 73640 

264.89537 

110.00001 

3.46899 

27 6 . 56866 

110.00001 

2.69693 

287.45172 

110.00001 

1 . 73765 

296.82813 

110.00001 

0 . 858 bl 

303 . 69333 

110.00002 

0 . 557 78 

307 .81859 

110.00001 

0.10793 

310.00000 

110.00001 

0.00000 

200.00000 

90.00000 

0.00000 

201 • 62166 

90.00000 

1.30892 

207.05168 

90.00001 

2.57297 

215.79126 

90.00000 

5 . 69 7 73 

227.21088 

90.00000 

4 . 3500 7 

240.54947 

90.00000 

4 . 88663 

254.84506 

90.00000 

4.30974 

269.11914 

90.00000 

5.30243 

282.42630 

90.00000 

2 . 25406 

293.89075 

yo. ooooo 

1.11273 

302.28604 

90.00000 

0.43720 

507 .53142 

90.00001 

0.13964 

310.00000 

90.00000 

0.00000 

ISO . 00002 

70.00002 

0.00000 

131.87805 

70.00001 

1 .60091 

133.28549 

70.00001 

5 . 16227 

198 . 6 1585 

70.00002 

4 . 33054 

212.11540 

70.00001 

3 . 3 7 7 73 

227.88853 

70.00001 

6 . 01690 

244.79076 

70.00001 

3 . 33048 

261 • 66962 

70.00002 

4.50794 

277 . 40085 

70.00001 

2 . 7704 V 

290 . 95 i 3 7 

70.00001 

1 . 56664 

500 . 3 7878 

70 . 00001 

0 . 35662 

306 . 84445 

70.00001 

0.171 53 

310.00000 

70.00001 

0.00000 

160.00002 

50.00002 

0.00000 

162.1 i 443 

50.00001 

1.89290 

169.51930 

50.00002 

4 1. + 

O • ✓ JiJ/ 

181 . 43639 

80.00002 

5 . 40295 

197.01996 

50.00002 

6 . 62345 

215.22762 

50.00002 

7.14713 

234 . 73846 

50 • 00002 

6 . 39125 

254 . 2200 V 

50.00001 

3.11544 

£/ dL • O/ J*rJ 

50 . 00002 

5 . 28693 

288.01602 

50.00002 

1 . 62036 

299 . ■150 

50.00001 

0 . 65604 

306 . 35745 

50.00001 

0 . 20507 

510.00000 

30.00001 

0 • ooooo 

140.00000 

30.00000 

0.00000 

142.06560 

29 . 67057 

2.18971 

150. 13760 

29.34408 

4 . 56070 


4 


/ 





i 
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ORIGINAL PAGE i3 
OF POOR QUALITY 









163 ♦ 44343 


29.03285 

6.29589 


180.83961 


28.56271 

7. 74840 


201.50874 


28.32885 

8.37183 


223.97173 


28.57864 

7.70394 


246 43689 


29.10410 

5.95302 


267*20563 


29 . 42558 

3.81819 


285.03714 


29.71745 

1.87806 


298.05640 


79.88927 

0. 73601 


305 . 36963 


79 . 96467 

0.23484 


310.00000 


30.00000 

0.00000 


TRIANGULAR PANEL IULERANCE ^ 

.003 



BOUNDARY CONDITION - 

1» UPPER 



1 

*/ 

%/ 





NETWORK-LUR-UINU-8 

lo 

/ 



310.00000 


150.00000 

0.00000 


_ 30 J. 79236 


150.00000 

-0.04430 


306.50790 


150.0 000 

-0.13894 

• 

302.70288 


150.00000 

-0.33098 


297.50259 


150.00000 

-0.70477 


291.46768 


150 . 00000 

-1.08393 


285.00000 


150.00000 

-1.38730 


273.53229 


150.00000 

-1.49389 


272. -.7731 


150.00000 

-1.38703 


267.32361 


150.00000 

-1.13998 


263.35028 


150.00000 

-0.80308 


260.85251 


150.00000 

-0.43294 


260.00000 


150.00000 

0.00000 


310.00000 


130.00000 

0.00000 

1 

308 . 30539 


130.00000 

-0.07621 


305.10062 


130.00000 

-0 . 23836 


299.76550 


130.00000 

-0 . 6048V 


292.47714 


130.00000 

-1.22120 


234 . 01316 


130.00000 

-1 .89143 


274.94769 


130. 00000 



265.87137 


130.00000 

-2 . 6261 4 


257.40136 


130.00000 

—2 . 434 7 1 


250. 14616 


130.00000 

-1.99237 


244.33409 


130.00000 

-1.39438 


241.10889 


130.00000 

-0.72493 


240.00000 


130.00000 

0.00000 


310.00000 


• 110.00001 

0.00000 

[ 

307.81342 


110.00001 

-0.10793 


303 . 69336 


110.00002 

— 0 .33778 

1 

296.82813 


110.00001 

-0.83881 

£ 

287.45172 


110.00001 

“• 1 • / o / oo 

1 

27 6 » 56366 


110.00001 

-2.69693 


264.89539 


110.00001 

-3.46899 


253.21043 


110.00001 

-3 . 73640 


242.30633 


110.00001 

-3.48239 


232 . 96373 


110.00001 

-2 . 84316 

l 

225.31792 


110.00001 

-1.98368 


221.36523 


110.00001 

-1 . 01692 


220.00002 


110.00002 

0.00000 


310.00000 


90.00000 

0. 00000 


307.33145 


90.00001 

-0 . 13964 

m 

302.28607 


90.00000 

-0 . 43720 

1 
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OF POOR QUALITY. 


293.39075 

90.00000 

-1.11273 

4.32 ♦ 42630 

90.00000 

-2.25406 

269.11914 

90.00000 

-3.50245 

254 . 84306 

90.00000 

-4.50974 

240.54951 

90.00000 

-4.88665 

227.21091 

90.00000 

-4.5300/ 

215.79129 

90.00000 

-3.697/5 

207.05173 

90.00000 

-2.5/298 

201.62164 

90.00000 

-1.30892 

200.00000 

90.00000 

0.00000 

310.00000 

70*00001 

0.00000 

306.84445 

70.00001 

-0.1/135 

300.87878 

70.00001 

-0.53662 

290.95337 

70.00001 

— 1 . 3o6c 4 

277.40085 

70.00001 

-2 . 77049 

261*66962 

70. 00002 

—4 . 30795 

244.79076 

70.00001 

-5.5.J048 

227.88861 

70.00001 

-6.01690 

212.11543 

70.00001 

*r • 

-J . sj / / / sj 

198.61386 

70.00001 

—4.55034 

183.28554 

70*00001 

—3.1 

131*37304 

70.00001 

-1 . 60091 

130.00002 

70.00002 

0 . 00000 

310.00000 

50.00001 

0.00000 

306.35748 

50.00001 

-0 . 20307 

299.47150 

50.00001 

-0 . 63604 

288.01599 

50.00002 

-1.62056 

272.37543 

50 . 00002 

-3.28692 

254.22009 

50*00001 

—5. 11344 

234 . 73846 

50.00002 

-6.59123 

215.22766 

50.00001 

-7.14716 

197.01997 

50.00001 

-6 • 62543 

181.43642 

50.00001 

-5 . 40293 

169.51V38 

50 . 00002 

-3.75138 

162 . 13441 

50 . 00001 

-1.89290 

160.00002 

50.00002 

0 . 00000 

310.00000 

30 . 00000 

0 . 00000 

305.36966 

29 .96467 

—0 . 23484 

298.05643 

29.88927 

—0 . 73601 

285.03711 

29.71745 

-1 . 87806 

267 . 20563 

29.42558 

-3.81819 

246.43639 

29.10410 

-5 . 95502 

223.97174 

28.57865 

—7 . 70594 

201.50883 

23.32884 

—8.37185 

180.33968 

28.56272 

-/ . 7 4840 

163.44548 

29.05283 

-6 . 29590 

150 . 13763 

29.34405 

-4.36021 

142.06560 

29.6/058 

-2. 18970 

140.00000 

30.00000 

0 . 00000 


TRIANGULAR PANEL TOLERANCE - .003 
BOUNDARY CONDITION ^ It UPPER 
%/ 

%/ 

_%/ 

XL.. 

_ NETU0RK-WING-CLU8-9 13 2 

260.00000 1 '30 .00000 

C-54 


0 . 00000 


(H1GINAL PAGE IS 
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260.35254 

150.00000 

0.43294 

263*35025 

150.00000 

0.80508 

267.32361 

150.00000 

1.13998 

272.49731 

150 .00000 

1 . 38703 

278.53229 

150.00000 

1.49589 

285.00000 

150.00000 

1.38750 

291 • 46768 

150.00000 

1.08395 

297 .5025V 

150.00000 

0.70477 

302.70285 

150.00000 

0.33098 

306.50790 

150.00000 

0.13894 

308.79236 

150.00000 

. 0.04450 

310.00000 

150.00000 

0.00000 

260.00000 

150.00000 

0.00000 

260.85251 

150.00000 

-0 . 432V 4 

263.35028 

150.00000 

-0.80508 

267 . 32361 

150.00000 

-1.13998 

272.49731 

150.00000 

-1 .38703 

278.53229 

150.00000 

-1.49389 

285.00000 

150.00000 

“1 . 38750 

291.46768 

150.00000 

-1.08593 

297.50259 

150.00000 

-0.70477 

302.70288 

150.00000 

-0.35098 

306 . 50790 

150.00000 

-0.13394 

308.79236 

150.00000 

-0.04430 

310.00000 

150.00000 

0.00000 

TRIANGULAR PANEL TOLERANCE - 

.003 


HOUND ARY CONDITION = 1 » LOWER 

- 


*/ 

#7 

NETW0RK=EXIT-10 15 

n 

a.. 


360.00000 

0.00000 

30.00000 

360.00000 

10 . 37 696 

28.13042 

360.00000 

16 . 03367 

25 . 85356 

360.00000 

19.50493 

22.95823 

360.00000 

23 . 06456 

19.04439 

360.00000 

26.49111 

13 . 27077 

360.00000 

29*01616 

6 . 53964 

360.00000 

30.00000 

0.00000 

360.00000 

29.01616 

-6.53964 

360.00000 

26.49111 

— 13 . 27077 

360.00000 

23 . 06455 

-19.04440 

360.00000 

19.50492 

-22.95823 

360.00000 

16 . 03366 

• • c oi: - 

« O JJO / 

360.00000 

10.37693 

-28.13043 

360.00000 

0.00000 

-30.00000 

360 . 0 

0.0 

0.0 

360 . 0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360*0 

0.0 

0.0 

360 . o 

0.0 

0.0 

360 . 0 

0.0 

0.0 

360.0 

0.0 

0.0 

360 . 0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 
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360*0 


0.0 

0.0 

360*0 


0.0 

0.0 

360.0 


0.0 

0.0 

TRIANGULAR PANEL TOLERANCE = 

.003 


BOUNDARY CONDITION * 4 » 8*1 

SINGULARITY TYPES SA* DA 

*/ 

*/ 

6*3 


NETWURK-WING-UAKE-11 

5 

** 

/ 


310*00000 


150.00000 

0.00000 

326 • 0660V 


150.00000 

0.00000 

343 « 33334 


150.00000 

0.00000 

360*00000 


150.00000 

0.00000 

600*0 


150.0 

0.0 

310.00000 


130.00000 

0.00000 

326 « 6666? 


130.00000 

0.00000 

343 • 33334 


130.00000 

0.00000 

360.00000 


130.00000 

0.00000 

600.0 


130.0 

0.0 

310.00000 


110.00001 

0.00000 

326 . 6666? 


110.00001 

0 . 00000 

343 . 33334 


110.00001 

0 . 00000 

360.00000 


110.00001 

0.00000 

600.0 


110.00001 

0.0 

310.00000 


90.00000 

0 . 00000 

3Z6 ♦ 6666? 


90.00000 

0.00000 

343 . 33334 


90.00000 

0.0000c 

360 . 00000 


70.00000 

0.00000 

600.0 


90.00 

0.0 

310.00000 


70.00001 

0.00000 

0 0000^ 

w 60»00007 


70.00001 

0.00000 

343 . 33334 


70.00001 

0.00000 

360.00000 


70.00001 

0.00000 

600.0 


70.00001 

0.0 

310.00000 


50.00001 

0.00000 

0 00000% 

0 OOOO 7 


50*00001 

0 . 00000 

343 . 33334 


50.00001 

0.00000 

360.00000 


50.00001 

0.00000 

600.0 


30.00001 

0.0 

310.00000 


30.00000 

0.00000 

OlLQ « 6066 1 


30.00000 

0.00000 

343 . 33334 


30.00000 

0.00000 

360.00000 


30.00000 

0.00000 

600.0 

WAKE FLOW PROPERTIES 
BOUNDARY CONDITIONS r 

Jfc/ 

1 AU 

WAKE 1 

30.0 

0.0 

*/ 

_ NETU0F:K-EXIT-UPR-WAKL-12 

2 S 


360.00000 


0.00000 

30 . 00000 

600.00000 


0.00000 

50.00000 

360 « 00000 


10.3V6V3 

2S. 13043 

600.00000 


10 . 376V3 

28.13043 

360.00000 


16 . 05366 

25.35337 

600.00000 


16 . 03366 

25.83337 

360.00000 


19.504V2 

22.93823 

600.00000 


1V.304V2. 

22.95823 
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TRIANGULAR 
BOUNDARY Cl 


360.00000 

23.06455 

19.04440 

600.00000 

23. 06455 

19.04440 

360.00000 

26.4V 111 

13.2/07/ 

600.00000 

26.49111 

13.2707/ 

360.00000 

29.01616 

6.53964 

wOO. 00000 

29.01616 

6.53964 

360.00000 

30.00000 

0.00000 

600.00000 

30.00000 

0.00000 

PANEL (ULERANCE ^ 

.003 


3NDITIQN = 1. WAKE 

1 


<IT-LWR-WAKE-13 

2 a 


360.00 '’00 

30.00000 

0 . 00000 

600.00000 

30.00000 

0.00000 

360.00000 

29 . 01616 

—6 ♦ 33964 

600.00000 

29.01616 

—6.53964 

360.00000 

26.4V111 

-13.2/0/7 

600.00000 

26.4V111 

— 13 . 270/’/ 

360.00000 

23 . 06456 

-19.04439 

600.00000 

23.06456 

-19.04439 

360.00000 

19.50493 

-22.95823 

600.00000 

19.504V3 

- 22.95823 

360.00000 

16 • 0336/ 

-25 . 85336 

600.00000 

16 . 0336/ 

-25.85336 

360.00000 

10.37696 

-28.13042 

600.00000 

10.37696 

-28.13042 

360.00000 

0.00000 

-30.00000 

600 < 00000 

0.00000 

-30.00000 


- 


TRIANGULAR PANEL I ULERANCE ■= .003 
BOUNDARY CONDITION - It WAKE 1 
*/ 

*/ 

%/ 

%/ 

*/ 

BEGIN GEOMETRIC EDGE MATCHING 


1 

n 


ENT IRE-EDGE 
ENTIRE-EDGE 
ENTIRE-EDGE 
ENTIRE-EDGE 


CR » 140.0 
/FM3 


/FM2 


ABUTMENT UPR-WING-7 » 

-= UPR-BQDY-4? 

ABUTMENT LWR-WtNG-8» 

- LWR-BODY-3 » 

*/ 

%/ 

BEGIN FLOW PROPERTIES DATA 

SURFACE FLOW PROPERTIES * CASE-1 /SF1 

NETWORK- 1 MAGES- 1 » REVERSE-2 » REVERSE^-3 » REVERSE-4 » REVERSE-5 » REVERSE + 

—6 » REVERSE-/-8=9 » REVERSE 
POINTS = CENTER /SF 4 

PRINTOUT * 1 » 2 » 8 » 13 » 16 /SF10A 

DATA BASE = ALL /SF11A 

*/ 

*/ 

FORCES AND MOMENTS /FM1 

REFERENCE PARAMETERS - SR» 3/500. 0» BR» 150. 0» 

AXIS SYSTEM = RCS.O. »0. .0 . t WAS» O.fO.fO. 

PRIN'OUT - NETWORK t CONFIGURATION /FMS 

DATA = NETWORK » CONFIGURAT ION 
CASE ■= CASE-1 /FM7 

NETWtRK-IMAGES ^1 » REVERSED » REVERSE-3 » REVERSE-4 » REVERSE-5 » REVERSE-6 » REVE 


! 


C-57 
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SURFACE - UPPER /FH12 

*/ 

%/ 

BEGIN PRINT PLUI BA I A /PP1 
GEOMETRY BATA /PP2A 

NETWORK - lf2»3»4»5»o»/ »8 /PP2B 

.POINT BATA //PP3A 

ARRAY = COLUMNS » CUHI HUL-PU INI S /PP3E 
_ CONFIGURATION BATA /PP4A 

END PROBLEM BEF IN IT ION 
ZXEOR 
%%EOF 
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C.3.3 New PAN AIR Problem 


The new PAN AIR problem created by the Viscous Simulation Module is presented in 
the following pages. This problem contains the boundary conditions specified to simulate 
the boundary layer. 
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ty rtpu.tmp 

ANNHU,PN»Ti:00»CM:34C00»YD2iYL2»R3. 

CCOUMT (FHr'.“B • T3320 > 

ISICOE, OUTPUT , ST ARSIXD»*PR. 

OMMENT. RUN THE PRODUCTION VERSION OP PANAIR 
OMMENT. STORED AS C12> 13RUNPANAIR . JCL UN CAPAIR... 
OMMENT . 

OPYSP( INPUT > OUTP'JT ) 

EUTND< INPUT) 

ETNAME < FHASBGD ) 

OUNT < VSN=D01 1 ID ) 

EQUEST , TAPE? » SN= FHASBGD . *PF . 

EQUEST * TAPE10 r SN-FHASBGD . *PF . 

EQUEST * TAPE11 1 SN= FHASBGD t*PF . 

UDIT<ID=FHAICB.AI-P> 

OMMENT. PURGE ANY ULD DATASETS THAT MIGHT BE THERE 
XIT r IJ . 

OMMENT. ATTACH AND EXECUTE THE MEC MODULE 
TTACHiMECi ID-PAMAIR) 

EC. 

DMMARY . 

ETURN(MEC) 

OMMLNT. ATTACH AND EXECUTE THE DIP MODULE 
TTACH< DIP » ID-PANAIR) 

IP ( INPUT » PL = 100000) 

UMMARY. 

ETURN(DIP) 

OMMENT. ATTACH' AND EXECUTE THE DQG MODULE 
TTACH(DQG. ID-PANAIR) 

QG<PL- 100000) 

UMMARY. 

ETURN(DQG) 

OMMENT. ATTACH AND EXECUTE THE MAG MODULE 
TTACHCMAG# IP-PANAIR) 

AG. 

UMMARY. 

ETURN.MAG. 

OMMENT. ATTACH AND EXECUTE THE RMS MODULE 
TTACH(RMS» ID-PANAIR) 

MS. 

UMMARY. 

ETURN(RMS) 

OMMpNT . ATTACH AND EXECUTE THE RHS MODULE 
TTACH ( RHS f ID-PANAIR ) 

HS. 

UMMARY. 

ETURN(RHS) 

OMMENT. ATTACH AND EXECUTE THE MDG MODULE 
TTACHtMDG. ID-PANAIR) 

DG. 

UMMARY. 

ETURN(MDG) 

OMMENT. ATTACH AND EXECUTE THE PDP MODULE 
TTACH<PDP. ID-PANAIR) 

DPCPL-40000) 

UMMARY. 

ETURN(PDP) 

OMMENT. ATTACH AND EXECUTE THE CDP MODULE 
TTACH< CDP r CDP 1 1D‘ PANAIR > 

DP. 

UMMARY. 

ETURN(CDP) 

OMMENT. ATTACH AND EXECUTE t HE PPP MODULE 
TTACHCPPP. ID-PANAIR) 

DD 
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JMMAIV' . 

ETUKN(PPP) 

UMMAKY . 

XIT > U. 

EWIND<TAPE9.TAPE10»TAPE11 > 

OPYSBF < TAPE9 » OUTPUT ) 

OPYSBF (TAPE10. OUTPUT) 

OPYSBF ( TAPE1 1 .UUTPUT) 

XIT.U. 

EWINDt INPUT) 

AT ALOG » T APE9 » PPP9Q . SN-FHASBUD » 1 D-FHA ICB . 

ATALOG. TAPEIO.PPPIOG. SN-FHASBGD. I D-FHA ICB • 

ATALCG » TAPE 1 1 • PPP1 1G . SN-FHASBGG . ID-FHA ICB . 

UDIT ( I D-FHA ICB » AI = P ) 

SEOR 

FAN AIR / THIS IS THE FIRST LARD OF MEC INPUT FOR CDC 7400/SC0PE 
Y8TEM PANAIR FHASBUD AMES 

ID "CHECKOUT OF FANAIR METHOD FOR VSTOL ANALYSIS 

ATA BASE DIRECTIVE BLOCK 

APPEND DAP. TO ALL 

UID - FHAICB FOR ALL 

SET - FHASBGD FOR ALL 

MUID- PANAIR FOR ALL 

MSET * FHASBGD FOR ALL 

END DATA BASE DIRECTIVE BLOCK 

HECK DATA RUN 

XECUTION DIRECTIVE BLOCK 

FIND POTENTIAL FLOW 

END EXECUTION DIRECTIVE BLOCK 

ND PAN AIR DIRECTIVES 

XEOR 

/ 

/ 


/ DIP INPUT - FILE RIP4.J0B 

/ UING-BODY PROBLEM FOR CHECKOUT OF VISCOUS EFFECTS MODULE 


EGIN GLOBAL DATA 

PID-MODEL TO CHECK OUT VISCOUS EFFECTS MODULE 
ID - BHATELEY/HOUELL GENERAL DYNAMICS 817 732 4811 
ON FIGURATION * FIRST /ONE PLANES OF SYMMETRY. 

ACH'- 0.600. CALPHA - 4.0. LBETA = 0.0/ RECORD G5 
LPHA * 4.0 

ID "FOUR-DEGREE /G6 

OLERANCE - 0.1 /G7 

URFACE SELECTION * UPPER /UB 

ELECTION OF VELOCITY COMPUTATION" BOUNDARY-CONDITION /G? 
RESSURE COEFFICIENT RULES-ISENTROPIC. SECOND-ORDER /G12 

/ 

HECKOUT PRINTS • DIP. 1.2.3. UQG.1,4.5 

EGIN NETWORK DATA 

/ THESE ARE THE NETWORKS FOR WING-BUDY MODEL 


NETWORK-NOSE-1 IS 
0.00000 
0.00000 
0.90000 
0.00000 
0.00000 
O.OOOvO 
0.00000 
0.00000 


0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
* A^AAA 
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0.00030 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

33.33334 

0.00000 

-10.00000 

33.33334 

3.43899 

-9.37681 

33.33334 

3.34436 

-8.61779 

33.33334 

6.50164 

-7.63274 

33.33334 

7.68819 

-6.34813 

33.33334 

8.83037 

-4.42339 

33.33334 

9.67203 

-2.17983 

33.33334 

10.00000 

0.00000 

33.33334 

9.67203 

2.17988 

33.33334 

8.83037 

4.42339 

33.33334 

7.68818 

6.34313 

33.33334 

6.50164 

7.65273 

33.33334 

5.34455 

8.61779 

33.33334 

3.45898 

9.37681 

33.33334 

0.00000 

10.00000 

66.66667 

0.00000 

-20.00000 

66.66667 

6.91797 

-18.75362 

66.66667 

10.68912 

-17.23338 

66.66667 

13.00329 

-15.30349 

66.66667 

15.3 7 637 

-12.69626 

66.66667 

17.66074 

-8.84718 

66.66667 

19.34411 

-4.35976 

66.66667 

20.00000 

0.00000 

66.66667 

19.34411 

4.33976 

66.66667 

17.66074 

8.84718 

66.66667 

13.37637 

12.69627 

66.66667 

13.00328 

13.30349 

66.66667 

10.68910 

17 .24558 

66.66667 

6.91793 

18.73362 

66.66667 

0.00000 

20.00000 

100.00000 

0.00000 

-30.00000 

100.00000 

10.37696 

-28.13042 

100.00000 

16.03367 

-23.85336 

100.00000 

19.50493 

-22.93823 

100.00000 

23.06456 

-19.04439 

100.00000 

26.49111 

-13.27077 

lOO.OOwOO 

29.01616 

-6.33964 

' 100.00000 

30.00000 

0.00000 

100.00000 

29.01616 

6.53964 

100.00000 

26.49111 

13.27077 

100.00000 

23.06433 

19.04440 

100.00000 

19.50492 

22.93823 

100.00000 

16.03366 

25.85337 

100.00000 

10.37693 

28.13043 

100.00000 

0.00000 

30.00000 

K I ANGULAR PANEL TOLERANCE * 
0UNUARY CONDITION •- 1.L0UER 

/ 

.003 


/ 

NETU0RK-FWD-B09Y-2 13 

3 


100.00000 

0.00000 

-30.00000 

100.00000 

10. 376*6 

-2b. 13042 

100.00000 

16.03367 

-23.85336 

100.00000 

19.30493 

-22.93823 

100.00000 

23.06436 

-19.04439 

100.00000 

26.49111 

-13.27077 

100.00000 

29.01616 

-6.53964 

100.00000 

30.00000 

0.00000 

100.00000 

29.01616 

6.33964 

-* 

.... (•( »««. « • 
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100.000C0 

23.0642; 

19.04440 

100.00000 

19.304?'. 

22.95323 

100.00000 

16.03266 

23.83337 

100.00000 

10.37693 

23.13043 

100.00000 

0.00000 

40.00000 

120.00000 

0.00000 

-30.00000 

120.00000 

10.37696 

-28.13042 

120.00000 

16.06367 

-2L.U5336 

120.00000 

19.30493 

-22.93823 

120.00000 

23.06436 

-19.04439 

120.00000 

26.49111 

-14.27077 

120.00000 

29.01616 

-6.53964 

120.00000 

30.00000 

0.00000 

120.00000 

29.01616 

6.53964 

120.00000 

26.49111 

1J. 27077 

120.00000 

23.06433 

19 .04440 

120.00000 

19.50492 

22.95823 

120.00000 

16.03366 

25.83337 

120.00000 

10.37693 

28.14043 

120.00000 

0.00000 

30.00000 

140.00000 

0.00000 

-30.00000 

140.00000 

10.37696 

-29.13042 

140.00000 

16.03367 

-25.83336 

140.00000 

19.30493 

-22.95823 

140.00000 

23.06456 

-19.04439 

140.00000 

26.49111 

-13.27077 

140.00000 

29.01616 

-6.33964 

140.00000 

40.00000 

0.00000 

140.00000 

29.01616 

6.53964 

140.00000 

26.4VH1 

13.27077 

140.00000 

23.06433 

IV. 044 >0 

140.00000 

19.30492 

22.95823 

140.00000 

16.03366 

23.83337 

140.00000 

10.37693 

28.13043 

140.00000 

0.00000 

30.00000 

PANEL TOLERANCE - 

.003 



OUNDARY CONDITION - l.LOUER 

/ 

/ 

NETUORK-LyR-BODY-3 8 


140.00000 

0.00000 

-30.00000 

140.00000 

10.37696 

-28.13042 

140.00000 

16.03367 

-25.85336 

140.00000 

19.50493 

-22.93823 

140.00000 

23.06436 

-19.0443? 

140.00000 

26.49111 

-13.27C77 

140.00000 

29.01616 

-6 • 33964 

140.00000 

30.00000 

0.00000 

150.13768 

0.00000 

-30.00000 

130.13768 

9.43373 

-28.40252 

150.13768 

14.67512 

-26.5732? 

150.13768 

18.03844 

-24.32330 

150.13768 

21.47990 

-20.93077 

150.13768 

23.04300 

-16.03498 

150.13768 

27.85628 

-10.14802 

150.13768 

29.34403 

-4.36021 

180.83968 

0.00000 

-30.00000 

180.83968 

8.68515 

-28.60125 

180.83968 

13.32987 

-27.06412 

180.83966 

16.81413 

-25.3286? 

180.83968 

20.10723 

-22.37667 

180.83968 

23.72057 

-18.13178 

180.83968 

26.63920 

-12.91333 

180.83968 

28.56272 

-7.74840 

223.97174 

0.00000 

-30.00000 

.'’•’I . 0*71.74 . ... 

o 
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223.97174 

13.54501 

-27.0331 1 

223.97174 

16.83045 

-25.31665 

223.97174 

20.12545 

-22.33371 

223.97174 

23.73869 

-18.10545 

223.97174 

26.67559 

-12.87822 

223.97174 

28. 37863 

-/i 70394 

267.20343 

0.00000 

-30.00000 

267.203*3 

9.35310 

-28.37002 

267.20363 

14.85005 

-26.4V034 

267.20363 

18.22490 

-24.15783 

267.20363 

21.68755 

-20.71991 

267.20563 

25.23666 

-13.69620 

267.20363 

28.02673 

-9.70323 

267.20363 

29.42558 

-3.81819 

290.05643 

0.00000 

-30.00000 

298.05643 

10.21853 

-28.17803 

298.03643 

15.81293 

-25.98376 

290.05643 

19.26217 

-23.18852 

298.05643 

22.81251 

-19.37369 

298.03643 

26.26452 

-13.74123 

298.05643 

28.85916 

-7.13170 

290.05643 

29.88927 

-0.73601 

310.00000 

0.00000 

-30.00000 

310.00000 

10.37696 

-28.13042 

310.00000 

16.03367 

-25.85336 

310.00000 

19.30493 

-22.93823 

310.00000 

23.06456 

-19.04439 

310.00000 

26.49111 

-13.27077 

310.00000 

29.01616 

-6.53964 

310.00000 

30.00000 

0.00000 


RJ ANGULAR PANEL TOLERANCE - .003 
OUNOARY CONDITION - l.LOUER 

/ 

/ 

NETU0RK-UPR-8QDT-4 8 7 


140.00000 

30.00000 

0.00000 

140.00000 

29.01*16 

6.53964 

140.00000 

26.49111 

14.27077 

140.00000 

23.06455 

19.04440 

140.00000 

19.50492 

22.95823 

140.00000 

16.03366 

25.85337 

140.00000 

10.37693 

28.13043 

140.00000 

0.00000 

30.0000C 

150.13760 

29.34405 

4.36020 

150.13760 

27.85629 

10.14801 

130.13760 

25.04301 

16.04498 

150.13760 

21.47990 

20.95077 

150.13760 

18.03843 

24.32530 

150.13760 

14.67511 

26.57329 

150.13760 

9.43572 

28.40253 

150.13760 

0.00000 

30.00000 

180.83961 

28.56271 

7.74840 

180.83961 

26.65920 

12.91336 

180.83961 

23.72057 

18.13179 

180.83961 

20.10723 

22.37668 

180.83961 

16.81412 

25.32869 

180.83961 

13.52985 

27.06412 

180.83961 

8.68512 

28.60125 

180.839*1 

0.00000 

30.00000 

223.97173 

28.57864 

7.70594 

223.97173 

26.67559 

12.87823 

223.97173 

23.73868 

lb. 1 0546 

223.97173 

20.12545 

22.35872 

223.97173 

16.83044 

25.31665 

223.97173 

13.54499 

27.05814 
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22-.V/1 >3 
223.97173 
267.20343 

247.20543 
267.20363 
267.20563 
267.20343 

267.20543 
267.20563 

267.20543 
298.05440 
298.05440 

298.05640 
298.056*0 
298.03610 

298.05640 

298.05640 

298.05640 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

RJ ANGULAR PANEL TOLERANCE - 
OUNDARY CONDITION » 1. LOWER 

/ 

/ 

NETUORK-LUR-AFT-iODY-5 8 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 
326.64449 
326.64649 

326.66669 

326.66669 
326.46649 

126.66669 

326.66669 

326.66669 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

• 340.0000 0 

360.00000 

360.00000 

360.00000 

340.00000 

360.00000 

340.00000 

360.00000 

RIANOULAR PANEL TOLERANCE • 
OUNDARY CONDITION - 1 t LOWER 

/ 



.. a < 3ro / / 

0.00000 

30.0C0C0 

29.42558 

3.6181? 

28.02472 

9.70524 

25.23466 

15.6V621 

21.68754 

20.71972 

18.22488 

24.1573-1 

14.85002 

26.49035 

9.55307 

28.37003 

0.00000 

30.00000 

29.88927 

0.73601 

28.85916 

>.15171 

26.26452 

13.74126 

22.81250 

19.37370 

19,24215 

23.1S353 

15.81291 

25.98376 

10.21850 

28.17809 

0.00000 

30.00000 

30.00000 

0.00000 

29.01616 

6.53964 

24.49111 

13.27077 

23.04455 

19.04440 

19.50492 

22.95823 

16.03366 

25.85337 

10.37493 

28.13043 

0.00000 

30.00000 

003 



4 

0.00000 

-30.00000 

10.3749/ 

-28.13042 

14.0336/ 

-25.85336 

19.50493 

-22.95823 

23.06454 

-19.04439 

24.49111 

-13.27077 

29.01414 

-6.53964 

30.00000 

0.00000 

0.00000 

-30.00000 

10.37696 

-28.13042 

14.03367 

-25.85336 

19.50493 

-22.95823 

23.06456 

-19.04439 

26.49111 

-14-27077 

29.01616 

-4.53964 

30.00000 

0.00000 

0.00000 

-30.00000 

10.37696 

-28.13042 

14.03367 

-25.85336 

19.50493 

-22.95823 

23.06454 

-19.04439 

24.49111 

-13.27077 

29.01414 

-6.53964 

30.00000 

0.00000 

0.00000 

-30.00000 

10.37696 

-28.13042 

16.03367 

-25.85336 

19.50493 

-22.95823 

23.04454 

-19.04439 

24.49111 

-13.27077 

29.01414 

-6.53964 

30.00000 

0.00000 


003 


065 
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NETUORK=UPR-AFT-BODY-& 8 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

310.00000 

326.66669 

326.66669 

326.66669 

326.66669 

326.66669 

326.66669 

326.66669 

326.66669 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 

343.33334 
343.33334. 

J60. 00000 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

360.00000 

RIANGULAR PANEL TOLERANCE * 
OUNDARY CONDITION - » . CIUER 

/ 

/ 

NETW0RN=UPR-UING-7 13 7 

260.00000 
260.8S2S4 
263.33025 
267.32361 
272.49731 

' 278.33229 

283.00000 
291.46768 
297.30259 
302.70283 
306.30790 
308.79236 

310.00000 

240.00000 
241.10892 
244.58406 
230.14616 
237.40182 
265.87*34 
274.94769 
284.01816 
292.47714 
299.76547 
303.10062 
308.30339 

310.00000 

220.00002 


4 


30.00000 

0.00000 

29.01616 

6 . 53764 

26.49111 

13.27077 

23.06455 

19.04040 

19.30492 

22.93823 

16.03366 

25.85337 

10.37693 

28.13043 

0.00000 

30.00000 

30.00000 

0.00000 

29.01616 

6.53964 

26.49111 

13.27077 

23.06455 

19.04440 

19.50492 

22.93823 

16.03366 

23.85337 

10.37693 

28.13043 

0.00000 

30.00000 

30.00000 

0.00000 

29.01616 

6.53964 

26.49111 

13.27077 

23.06453 

19.04440 

19.30492 

22.93323 

16.03366 

25.83337 

10.37693 

28.13043 

0.00000 

30.00000 

30.00000 

0.00002 

29.01616 

6.33964 

26.49111 

13.27077 

23.06435 

19.04440 

19.50492 

22.95823 

16.03366 

23.83337 

10.37693 

28.13043 

0.00000 

30.00000 


003 


130.00000 

0.00000 

150.00000 

0.43294 

150.00000 

0.80508 

130.00000 

1.13998 

150.00000 

1.38703 

130.00000 

1.49589 

150.00000 

1.38750 

130.00000 

1.08395 

150.00000 

0.70477 

130.00000 

0.33098 

150.00000 

0.13894 

150.00000 

0.04430 

150.00000 

0.00000 

130.00000 

0.00000 

130.00000 

0.72493 

130.00000 

1.39437 

130.00000 

1.99257 

130.00000 

2.43471 

130.00000 

2.62614 

J 30.00000 

2.42825 

130.00000 

1.89143 

130.00000 

1.22120 

130.00000 

0.60489 

130.00C00 

0.23836 

130.00000 

0.07621 

130.00000 

0.00000 

110.00002 

0.00000 

iiA 

4 « 4 < 
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ORIGINAL PAGE tS 
OF POOR QUALfTY 


.... 1 • OOJ Ji 

225. 81787 
232.96872 
242.30637 
253.21042 
264.89539 
276.56866 
287.45172 
296.82813 
303.69333 
307.81839 

310.00000 

200.00000 
201.62166 
207.03168 
215.79126 
227.21088 
240.34947 
254.84306 
269.11914 
282.42630 
293.89073 
302.28604 
307.33142 

310.00000 
180.00002 
181.87805 
188.28549 
198.61383 
212.11340 
227.88833 
244.79076 
261.66962 
277.40085 
290.93337 
300.87878 
306.84445 

310.00000 
160.00002 
162.13443 
169.51930 
181.43639 
197.01996 
215.22762 
234.73846 
234.22009 
272.37343 
285.01602 
299.47130 
306.35743 

310.00000 

140.00000 
142.06560 
150.13760 
163.44343 
180.83961 
201.50874 
223.97173 
246.43689 
267.20563 
285.03714 
298.05640 
305.86963 

310.00000 

RIANGULAR PANEL TOLERANCE * 

/ 


1 1U . U.VU.' 

X .V.OIJ 

110.00001 

1.98367 

110.00001 

2.84316 

110.0C001 

3.4S239 

110.00001 

3.75640 

110.00001 

3.46399 

110.00001 

2.69693 

110.00001 

1.73763 

110.00001 

0.83881 

110.00002 

0.33778 

HO.COCOl 

0.10793 

110.00001 

0.00000 

VO. 00000 

0.00000 

VO. 00000 

1.30892 

90.00001 

2.57297 

90.00000 

3 • 69775 

90.00000 

4.33007 

90.00000 

4.88665 

90.00000 

4.50974 

90.00000 

3.30243 

90.00000 

2.25406 

90.00000 

1.11273 

90.00000 

0.43720 

90.00001 

0.13964 

VO. 00000 

0.00000 

70.00002 

0.00000 

/0. 00001 

1.60091 

70.00001 

3.16227 

/O. 00002 

4.53034 

70.00001 

3.37775 

70.00001 

■ 6.01690 

70.00001 

5.55043 

70.00002 

4.30794 

70.00001 

2.77049 

70.00001 

1.36664 

70.00001 

0.53662 

70.00001 

0.17135 

70.00001 

0.00000 

30.00002 

0.00000 

50.00001 

1.39290 

30.00002 

3.75137 

50.00002 

3.40293 

50.00002 

6.62543 

30.00002 

7.14713 

50.00002 

6.5V123 

50.00001 

5.11344 

30.00002 

3.28693 

50.00002 

1.62056 

50.00001 

0.63604 

30.00001 

0.20307 

50.00001 

0.00000 

30.00000 

0.00000 

29.67037 

2.18971 

29.34403 

4.36020 

29.03283 

6.29389 

28.56271 

/. 74840 

28.32885 

8.37185 

28.57864 

7.70394 

29.10410 

5.95502 

29.42338 

3.81819 

29.71743 

1.87806 

29.88927 

0.73601 

29.96467 

0.23484 

30.00000 

0.00000 


003 


C-67 


ORKMIAL PAQfi (« 
OF POOR QUALITY 


OUNBAP.Y CONDITION *■ 2»UPPE 
PFCIFIFn FLOW 
EPP - 1 

OINTS - CENTER 

7 OUTFLOW VELOCITIES FOR PANEL CENTER POINTS 


0.005660 

0.002210 

0.002249 

0.001730 

0.002063 

0.002493 

0.003700 

0.001813 

0.001980 

0.001795 

C 002244 

0.002847 

0.002754 

0.001596 

0.001811 

0.001704 

0.002181 

0.002851 

0.002209 

0.001455 

0.001687 

0. 001606 

0.002094 

0.002750 

0.001857 

0.001352 

0.00159R 

0.001502 

0.001966 

0.002597 

0.001618 

0.001291 

0.001531 

0. 001334 

0.001879 

0.002473 


7 
/ 

/ 

OINTS * EDGE 

/ BEGIN VELOCITIES FOR EDGE X 
0.006597 
0.004185 
0.003042 
0.002391 
0.001977 
0.001692 
7 
/ 

/ BEGIN EDGE VELOCITIES FOR SIDE 2 
0.001497 
0.001259 
0.001497 
0.001191 
0.000950 
0.000904 
0.001247 
0.001835 
0.002410 
0.002585 
0.002763 
0.005055 

/ . 

/ 

/ BEGIN EDGE VELOCITIES FOR SIDE 3 
0.005011 
0.003355 
0.006656 
0.007007 
0.004176 
0.010704 

/ 

/ 

/ BEGIN EDGE VELOCITIES FOR SIDE 4 
0.011102 
0.002831 
0.002583 
0.002317 
0.001972 
0.001697 
0.001481 
0.001519 
0.001772 
0.002383 


0.001637 

0.001465 

0 . 00146'f 

0.002812 

0.002835 

0 . 00c6o8 

0.001515 

0.001357 

0.001444 

0.003271 

0.002844 

0.003836 

0.001409 

0.001260 

0 . 00134c 

0.003406 

0.003157 

0.006016 

0.001329 

0.001187 

0.001265 

0.003172 

0.002996 

0.005717 

0.001265 

0.001118 

0 . 001 loo 

0.002988 

0.002575 

0.0C31S5 

0.001216 

0.001003 

0.001001 

0.002720 

0.002700 

0.004419 
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ORIGINAL PAG- 13 
OF POOR QUALITY 


% \» u 

0.006636 

/ 


SIN 1 s = additional 

( 1 ) = 0.003314 
( 2 > - 0.001933 
( 3 ) - 0.006152 
( 4 ) - 0.003225 


/ 

NETWORK «LUR-U I NG-8 13 

310.00000 
308.79236 
306.50790 
302.70288 
297.50259 
291.46768 

285.00000 
278.53229 
272.49731 
267.32361 
263.35028 
260.85251 

260.00000 

310.00000 
308.30539 
305.10062 
299.76550 
292.47714 
284.01816 
274.94769 
265.87137 
257.40186 
250.14616 
244.58409 
241.10889 

240.00000 

310.00000 
307.81842 
303.69336 
296.82813 
287.45172 
276.56866 

- 264.89539 

253.21045 
242.30638 
232.96873 
225.81792 
221.36528 
220.00002 

310.00000 
307.33145 
302.28607 
293.89075 
282.42630 
269.11914 
254.84306 
240.54951 
227.21091 
215.79129 
207.05173 
201.62164 

200.00000 

310.00000 
306.84445 

. 


7 


150.00000 

0.00000 

150.00000 

-0.04450 

150.00000 

-0.13894 

150.00000 

-0.3509S 

150.00000 

-0.70477 

150.00000 

-1.08595 

150.00000 

-1.38750 

150.00000 

-1.4958? 

150.00000 

-1.33703 

150.00000 

-1.13998 

150.00000 

-0.80503 

150.00000 

-0.43294 

150.00000 

0.00000 

130.00000 

0.00000 

130.00000 

-0.07621 

130.00000 

-0.23836 

130.00000 

-0.6048? 

130.00000 

-1.22120 

130.00000 

-1.89145 

130.00000 

-2.42825 

130.00000 

-2.62614 

130.00000 

-2.43471 

130. 00000 

-1.99257 

130.00000 

-1.39438 

130.00000 

-0.72493 

130.00000 

0.00000 

110.000G1 

0.00000 

110.00001 

-0.10793 

110.00002 

-0.33778 

110.00001 

-0.85881 

UO.OvOOl 

-1.73763 

110.00001 

-2.6V695 

110.00001 

-3.4639? 

110.00001 

-3.75640 

110.00001 

-3.4323? 

110.00001 

-2.84516 

110.00001 

-1.98366 

110.00001 

-1.01692 

110.00002 

0.00000 

90.00000 

0.00000 

90.00001 

-0.13964 

90.00000 

-0.43720 

90.00000 

-1.11273 

90.00000 

-2.25406 

90.00000 

-3.50245 

90.00000 

-4.50974 

90.00000 

-4.88665 

90.00000 

-4.53007 

90.00000 

-3.69775 

90.00000 

-2.57298 

90.00000 

-1.30892 

90.00000 

0.00000 

70.00001 

0.00000 

70.00001 

-0.17135 

. .'.'1 . 
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ORIGINAL PAGE 
OF POOR QUALITY 



wVV • Cl / w / W 


290.93337 

70.00001 

* 1 . 3666 * 

277.40083 

70.00001 

-2. 7704? 

261.66962 

70.00002 

-4.30795 

244.79076 

70.00001 

-3.35C4S 

227.88861 

70.00001 

-6.01690 

212.11343 

70.00001 

-5.57775 

198.61386 

70.00001 

-4.55034 

188.28534 

70.00001 

-6.16228 

181.87804 

70.00001 

-1.60091 

180.00002 

70.00002 

0.00000 

310.00000 

50.00001 

0.00000 

306.35748 

30.00001 

-0.20307 

299.47130 

30.00001 

-0.63604 

288.01399 

.50.00002 

-1.62036 

272.37343 

50.00002 

-3.28692 

254.22009 

50.00001 

-3.1134-1 

234.73846 

30.00002 

-6.59123 

215.22766 

30.00001 

-7.14716 

197.01997 

30.00001 

-6.62543 

181.43642 

30.00001 

-5.40293 

169.31938 

50.00002 

-3.73138 

162.13441 

50.00001 

-1.89290 

160.00002 

50.00002 

0.00000 

310.00000 

30.00000 

0.00000 

305.86966 

29.96467 

-0.23484 

298. 03.' 43 

29.88927 

-0.73601 

283.03711 

29.71743 

-1.87806 

267.2CS63 

29.42338 

-3.81819 

246.43689 

29.10410 

-3.95302 

223.97174 

28.37865 

-7.70394 

201.30883 

28.32884 

-8.37183 

180.83968 

28.56272 

-7.74840 

163.44548 

29.03283 

-6.29590 

130.13768 

29.34405 

-4.36021 

142.06560 

29.67058 

-2.18970 

140.00000 

30.00000 

0.00000 


RI ANGULAR PANEL 1 OLERANCE - .003 

/ 


/ 

OUNDARY CONDITION =- 2fUPPE 
PECIFIED FLOW 
ERA. = 1 

OINTS - CENTER 


/ OUTFLOW 

VELOCITIES 

FOR PANEL CENTER POINTS 



0.000077 

0.001429 

0.001891 

0.001732 

0.001504 

0.001318 

0.001163 

0.001108 

0.001114 

0.001043 

0.001783 

0.000000 

0.002341 

0.002049 

0.002299 

0.001937 

0.001570 

0.001273 

0.001051 

0.000993 

0.001033 

0.001085 

0.001366 

0.000000 

0.002164 

0.001961 

0.002357 

0.001987 

0.001361 

0.001246 

0.001023 

0.000978 

0.001043 

0.001127 

0.001084 

0.000000 

0.002722 

0.002011 

0.002283 

C. 001976 

0.001548 

0.00121? 

0.001002 

0.000963 

0.001035 

0.001155 

C. 000897 

0.000000 

0.004242 

0.002297 

0.002248 

0.001906 

0.001492 

0.001175 

0.000983 

0.000954 

0.001032 

0.001173 

0.000764 

0.000000 

0.002936 

0.002140 

0.002176 

0.001721 

0.001291 

0.001429 

0.001037 

0.000831 

0.001007 

0.001149 

0.000691 

0.000000 


/ 


/ 


OINTS * EDGE 

/ BEGIN VELOCITIES FOR EDGE 1 
0.000000 
0.002442 



ORIGINAL PAGE IS 
OF POOR QUALITY 


0.002948 
0 . 004918 
0.003211 


/ BEGIN EDGE VELOCITIES FOR SIDE 2 
0.002279 
0.002060 
0.002139 
0.001627 
0.001188 
0 . 001360 
0.001065 
0.000766 
0.000993 
0.001137 
0.000654 
0.000000 

/ 

/ 

/ BEGIN EDGE VELOCITIES FOR SIDE 3 
0.000000 
0.000000 
0.000000 
0.000000 
0.000000 
0.000000 

/ 

/ 

/ BEGIN EDGE VELOCITIES FOR SIDE 4 
0.000000 
0.001993 
0.001022 
0.001144 
0.001164 
0.001219 
0.001341 
0.001471 
0.001620 
0.001687 
0.001110 
0.000000 

/ • 

/ 

OINTS - ADDITIONAL 
( 1 . - 0.002629 

( 2 > * 0.001289 

< 3 ) - 0.000000 

( 4 ) * 0.001149 

/ 

/ 

NET'40RK*UING-CL0S-9 13 2 


260.00000 

150.00000 

0.00000 

260.85254 

150.00000 

0.43294 

263.35025 

150.00000 

0.80508 

267.32361 

150.00000 

1.13V98 

272.49731 

150.00000 

1.38703 

278.53229 

150.00000 

1.49589 

285.00000 

150.00000 

1.38750 

291.46768 

150.00000 

1.08595 

297.50259 

150.00000 

0.70477 

302.70285 

150.00000 

0.35098 

306.50790 

150.00000 

0.13894 

308.79236 

150.00000 

0.04450 

310.00000 

150.00000 

0.00000 

"I/.A AAAAA .... 

. . .... < ».A AAAAA 

A AAAAA 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


260.83251 

150.00000 

-0.43294 

263.35028 

150.00000 

-0.80503 

267 • 323ul 

150.00000 

-1.13998 

272.49731 

150.00000 

-1.38703 

278.53229 

150.00000 

-1.49589 

285.00000 

150.00000 

-1.38750 

291.46768 

ISO . oocoo 

-1.08595 

297.50259 

150.00000 

-0.70177 

302.70288 

150.00000 

-0.35098 

306.50790 

150.00000 

-0.13894 

308 . 79236 

150.00000 

-0.04450 

310.00000 

150.00000 

0.00000 

RIANGULAR PANEL TOLERANCE * 
OUNDARY CONDITION - 1 • LOWER 

/ 

.003 


/ 

NETU0RK-EXIT-10 15 

•# 


360.00000 

0.00000 

30.00000 

360.00000 

10.37696 

28.13042 

360.00000 

16.03367 

25.85336 

360.00000 

19.50493 

22.95823 

360.00000 

23.06456 

19.04439 

360.00000 

26.49111 

13.27077 

360.00000 

29.01616 

6.53964 

360.00000 

30.00000 

0.00000 

360.00000 

29.01616 

-6.53964 

360.00000 

26.49111 

-13 • 27077 

360.00000 

23.06455 

-19.04440 

360.00000 

19.50492 

-22.95823 

360.00000 

16.03366 

-25.85337 

360.00000 

10.37693 

-28.13043 

360.00000 

0.00000 

-30.00000 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360 • 0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

360.0 

0.0 

0.0 

RIANGULAR PANEL TOLERANCE - 

.003 


OUNDARY CONDITION - At 8.1 

INGULARITY TYPES - SA. DA 

/ 

6? 3 


/ 

ETUQRK*UING-UAKE-1 1 5 

7 


310.00000 

150.00000 

0.00000 

326.66669 

150.00000 

0.00000 

343.33334 

150.00000 

0.00000 

360.00000 

150.00000 

0.00000 

600.0 

150.0 

0.0 

310.00000 

i30.:oooo 

0.00000 

326.66669 

130.00000 

0.00000 

343.33334 

130.00000 

0.00000 

360.00000 

130.00000 

0.00000 

600.0 

130.0 

0.0 

310.00000 

110.00001 

0.00000 

326.66669 

110.00001 

0.00000 

7 .... 

1 « A ARArtl 

A AAAAA 
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ORIGINAL PAGE f3 
OF POOR QUALITY 


360.00000 

600.0 

310.00000 

326.66669 

343.33334 

360.00000 

600.0 

310.00000 

326.66669 

343.33334 

360.00000 

600.0 

310.00000 

326.66669 

343.33334 

360.00000 

600.0 

310.00000 

326.66669 

343.33334 

360.00000 

600.0 

AKE FI OU PROPERTIES TAG 
OUNDAPY CONDITION*! » UAKE ) 

/ 

/ 

NETUORK-EXIT-UPR-UAKE-12 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 
360.0C000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

RIANGULAR PANEL TOLERANCE - 
OUNDARY CONDITION * 1. UAKE 
NETUORK-EXIT-LUR-UAKE-13 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

360.00000 

600.00000 

RIANGULAR PANEL TOLERANCE - 
OUNDARY CONDITION * If UAKE 

/ 


110.00001 

0.00000 

110.00001 

0.0 

90.00000 

0.00000 

90.00000 

0.00000 

90.00000 

0.00000 

90.00000 

o.oococ 

90.00 

0.0 

70.00001 

0.00000 

70.00001 

0.00000 

70.00001 

0.00000 

70.00001 

0.00000 

70.00001 

0.0 

S0.0C001 

0.00000 

SO. 00001 

0.00000 

50.00001 

0.00000 

50.00001 

0.00000 

50.00001 

0.0 

30.00000 

0.00000 

30.00000 

0.00000 

30.00000 

0.00000 

30.00000 

0.00000 

30.0 

0.0 


2 & 

0.00000 

30.00000 

0.00000 

30.00000 

10.37693 

28.13043 

10.37693 

28.13043 

16.03366 

25.85337 

16.03366 

25.85337 

19.50492 

22.95823 

19.50492 

22.95823 

23.06455 

19.04440 

23.06455 

19.04440 

26.49111 

13.27077 

26.49111 

13.27077 

29.01616 

6.53964 

29.01616 

6.S3V64 

30.00000 

0.00000 

30.00000 

0.00000 

003 

2 a 

30.00000 

0.00000 

30.(0000 

0.00000 

29.01616 

-6.53964 

29.0i.616 

-6.53964 

26.49111 

-13.27077 

26.4911! 

-13.27077 

23.06456 

-19.04439 

23.06456 

-19.04439 

19.50493 

-22.95823 

19.50493 

-22.95823 

16.03367 

-25.85336 

16.03367 

-25.85336 

10.37696 

-28.13042 

10.37696 

-28.13042 

0.00000 

-30.00000 

0.00000 

-30.00000 


003 



ORIGINAL PAGE 13 
OF POOR QUALITY 


/ 

/ 

/ 

EGIN GEOMETRIC EDGE MATCHING 

BUTMENT » UPR-WING-7. 2 ENTIRE->EDGE + 

* UPR-BODY-4, 1 ENTIRE-EDGE 

BUTMENT - LWR-UING-3. 2 ENTIRE-EDGE + 

- I WR-BODY-3 » 3 ENTIRE-EDGE 

/ 

/ 

EGIN FLOW PROPERTIES DATA 

URFACE FLOU PROPERTIES - CASE-1 /SF1 

ETUORK- IMAGES* 1 . REVERSE-2 . REVERSE-3 * REVERSE A . REVERSE-5 . REVERSE 
= 6 » REVERSE-7 -8=9 » REVERSE 
OINTS - CENTER /SF4 

RINTOUT - 1.2.8.13.16 /SFIOA *■ R 


Cl 

«u 


/ 

/ 

ORCES AND MOMENTS /FH1 

EFERENCE PARAMETERS - SR. 37500.0. BR. 150.0. CR. 140.0 /FM2 

X1S SYSTEM - RCS.O. .0. .0. . WAS. 0..0..0. /FM3 

RINTOUT - NETWORK. CONFIGURATION /FMS 

ATA > NETWORK. CONFIGURATION 

ASE - CASE-1 /FM7 

ETWORK-IMAGES -1 .REVERSE-2 .REVERSE-3 . REVERSE -4 .REVERSE-5 . REVERSE -6 . REVERSE *7^3 
URFACE - UPPER /FM12 

/ 

/ 

EGIN PRINT PLOT DATA /PP1 

EOMETRY DATA /PP2A 

ETWORK - 1. 2. 3.4. 5. 6.7. 8 /PP2B 

OINT DATA //PP3A 

RRAY - COLUMNS. CONTROL-POINTS /PP3E 

ONFIGURATION DATA /PP4A 

ND PROBLEM DEFINITION 

ZEOR 

XEOF 

ZEOF 

» 

/ 

J 




I 
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